diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2010-04-16 23:29:39 +0200 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2010-04-16 23:29:39 +0200 |
commit | c5b25d0fb00ff878886df89842c4a442819a0800 (patch) | |
tree | 983f531785953c66b51d71f0bbd132236961f257 /XMonad/Util/Image.hs | |
parent | 879a7a8dd2e0c9360ed9a90f8bab1f945b265211 (diff) | |
download | XMonadContrib-c5b25d0fb00ff878886df89842c4a442819a0800.tar.gz XMonadContrib-c5b25d0fb00ff878886df89842c4a442819a0800.tar.xz XMonadContrib-c5b25d0fb00ff878886df89842c4a442819a0800.zip |
Use imported `fi' alias for fromIntegral more often.
Ignore-this: 51040e693066fd7803cc1b108c1a13d5
Also moves `fi' into U.Image to avoid cyclic imports,
though XUtils sill exports that definition.
darcs-hash:20100416212939-1499c-a12428074d873b1eaea197e1b79c0ca07a96b05f.gz
Diffstat (limited to 'XMonad/Util/Image.hs')
-rw-r--r-- | XMonad/Util/Image.hs | 5 |
1 files changed, 4 insertions, 1 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 |