diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-11-15 03:40:01 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-11-15 03:40:01 +0100 |
| commit | 2c98d5504bf44706ea7ee9747526dd652bc7824e (patch) | |
| tree | a107e7fb70c8560f1178eb52df2cbab24887ac11 /XMonad | |
| parent | 319c32cbd36e56bd908f521ec158e2a43c06504e (diff) | |
| download | XMonadContrib-2c98d5504bf44706ea7ee9747526dd652bc7824e.tar.gz XMonadContrib-2c98d5504bf44706ea7ee9747526dd652bc7824e.tar.xz XMonadContrib-2c98d5504bf44706ea7ee9747526dd652bc7824e.zip | |
'io' and 'fi' are defined outside of Prompt
Ignore-this: 3426056362db9cbfde7d2f4edbfe6f36
darcs-hash:20091115024001-1499c-c9804d0b6432f429f6c403d1dade7b4343532b9e.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Prompt.hs | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 16e568a..a84decc 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -63,12 +63,13 @@ module XMonad.Prompt import Prelude hiding (catch) -import XMonad hiding (config, io, numlockMask, cleanMask) +import XMonad hiding (config, numlockMask, cleanMask) import qualified XMonad as X (numlockMask,config) 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 Control.Arrow ((&&&),first) import Control.Concurrent (threadDelay) @@ -826,14 +827,6 @@ getNextCompletion c l = l !! idx Just i -> if i >= length l - 1 then 0 else i + 1 Nothing -> 0 --- Lift an IO action into the XP -io :: IO a -> XP a -io = liftIO - --- Shorthand for fromIntegral -fi :: (Num b, Integral a) => a -> b -fi = fromIntegral - -- | Given a maximum length, splits a list into sublists splitInSubListsAt :: Int -> [a] -> [[a]] splitInSubListsAt _ [] = [] |