diff options
Diffstat (limited to 'XMonad/Util')
-rw-r--r-- | XMonad/Util/Image.hs | 5 | ||||
-rw-r--r-- | XMonad/Util/XUtils.hs | 3 |
2 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Util/Image.hs b/XMonad/Util/Image.hs index 92ef76c..472586f 100644 --- a/XMonad/Util/Image.hs +++ b/XMonad/Util/Image.hs @@ -17,7 +17,9 @@ module XMonad.Util.Image -- $usage Placement(..), iconPosition, - drawIcon + drawIcon, + + fi, ) where import XMonad @@ -86,6 +88,7 @@ drawIcon dpy drw gc fc bc x y icon = do 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 diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs index acc4558..8ea3653 100644 --- a/XMonad/Util/XUtils.hs +++ b/XMonad/Util/XUtils.hs @@ -204,6 +204,3 @@ mkWindow d s rw x y w h p o = do createWindow d rw x y w h 0 (defaultDepthOfScreen s) inputOutput visual attrmask attributes --- | Short-hand for 'fromIntegral' -fi :: (Integral a, Num b) => a -> b -fi = fromIntegral |