diff options
Diffstat (limited to 'XMonad/Util/Image.hs')
-rw-r--r-- | XMonad/Util/Image.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/XMonad/Util/Image.hs b/XMonad/Util/Image.hs index 472586f..ff0ecdc 100644 --- a/XMonad/Util/Image.hs +++ b/XMonad/Util/Image.hs @@ -18,12 +18,10 @@ module XMonad.Util.Image Placement(..), iconPosition, drawIcon, - - fi, ) where import XMonad -import XMonad.Util.Font (stringToPixel) +import XMonad.Util.Font (stringToPixel,fi) -- | Placement of the icon in the title bar data Placement = OffsetLeft Int Int -- ^ An exact amount of pixels from the upper left corner @@ -87,8 +85,3 @@ drawIcon dpy drw gc fc bc x y icon = do io $ fillRectangle dpy drw gc x y (fi i_w) (fi i_h) io $ setForeground dpy gc fcolor io $ drawPoints dpy drw gc (movePoints x y (iconToPoints icon)) coordModeOrigin - - --- | Short-hand for 'fromIntegral' -fi :: (Integral a, Num b) => a -> b -fi = fromIntegral |