diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2010-09-14 01:38:50 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2010-09-14 01:38:50 +0200 |
| commit | d72088aae409cd15658088a74efa818787f014e6 (patch) | |
| tree | ad0d9b6c2eb18aadac70fe65b224f34c8ba7b2ec | |
| parent | 23b36f7dcd506ba155c4616441e37b4beab95ce0 (diff) | |
| download | XMonadContrib-d72088aae409cd15658088a74efa818787f014e6.tar.gz XMonadContrib-d72088aae409cd15658088a74efa818787f014e6.tar.xz XMonadContrib-d72088aae409cd15658088a74efa818787f014e6.zip | |
Remove last excess definition of `fi' (fromIntegral)
Ignore-this: 42d9282697573b361d763d980b816465
darcs-hash:20100913233850-1499c-20e07e9b380af55b7e1786630472a05996229c8c.gz
| -rw-r--r-- | XMonad/Prompt.hs | 3 | ||||
| -rw-r--r-- | XMonad/Util/Font.hs | 1 | ||||
| -rw-r--r-- | XMonad/Util/Image.hs | 9 |
3 files changed, 3 insertions, 10 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 946d0dc..d8133fd 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -71,7 +71,6 @@ import qualified XMonad.StackSet as W import XMonad.Util.Font import XMonad.Util.Types import XMonad.Util.XSelection (getSelection) -import XMonad.Util.XUtils (fi) import Codec.Binary.UTF8.String (decodeString) import Control.Applicative ((<$>)) @@ -922,4 +921,4 @@ historyNextMatching hm@(HistoryMatches ref) next = do -- historyUpMatching, historyDownMatching :: HistoryMatches -> XP () historyUpMatching hm = historyNextMatching hm W.focusDown' -historyDownMatching hm = historyNextMatching hm W.focusUp'
\ No newline at end of file +historyDownMatching hm = historyNextMatching hm W.focusUp' diff --git a/XMonad/Util/Font.hs b/XMonad/Util/Font.hs index b08f021..d05b433 100644 --- a/XMonad/Util/Font.hs +++ b/XMonad/Util/Font.hs @@ -29,6 +29,7 @@ module XMonad.Util.Font , textExtentsXMF , printStringXMF , stringToPixel + , fi ) where import XMonad 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 |