From 268b1a4fe9cea1ab6bb0aead945abeffcb6ebf82 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sun, 12 Jun 2011 21:23:39 +0200 Subject: L.Spacing use imported fi Ignore-this: ac3b405e8c43d1b1db58ecf80fafab8e darcs-hash:20110612192339-1499c-e3ed41cd5ed23daa7d16f0d679c11fab3d70eebb.gz --- XMonad/Layout/Spacing.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Layout/Spacing.hs') diff --git a/XMonad/Layout/Spacing.hs b/XMonad/Layout/Spacing.hs index 1904638..74f7f9c 100644 --- a/XMonad/Layout/Spacing.hs +++ b/XMonad/Layout/Spacing.hs @@ -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 -- cgit v1.2.3