twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-26 09:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

L.Spacing use imported fi

Browse Source
This commit is contained in:
Adam Vogt
2011-06-12 19:23:39 +00:00
parent 4ea488d906
commit 758094e4c7
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Layout/Spacing.hs
View File

@@ -23,6 +23,7 @@ module XMonad.Layout.Spacing (
import Graphics.X11 (Rectangle(..))
import Control.Arrow (second)
import XMonad.Util.Font (fi)
import XMonad.Layout.LayoutModifier
@@ -51,4 +52,3 @@ instance LayoutModifier Spacing a where
shrinkRect :: Int -> Rectangle -> Rectangle
shrinkRect p (Rectangle x y w h) = Rectangle (x+fi p) (y+fi p) (w-2*fi p) (h-2*fi p)
where fi n = fromIntegral n -- avoid the DMR