twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-27 18:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

'io' and 'fi' are defined outside of Prompt

Browse Source
This commit is contained in:
Adam Vogt
2009-11-15 02:40:01 +00:00
parent 9cdcb7185f
commit ff11ae70a0
1 changed files with 2 additions and 9 deletions

11
XMonad/Prompt.hs

@@ -63,12 +63,13 @@ module XMonad.Prompt
import Prelude hiding (catch) 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 as X (numlockMask,config)
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Util.Font import XMonad.Util.Font
import XMonad.Util.Types import XMonad.Util.Types
import XMonad.Util.XSelection (getSelection) import XMonad.Util.XSelection (getSelection)
import XMonad.Util.XUtils (fi)
import Control.Arrow ((&&&),first) import Control.Arrow ((&&&),first)
import Control.Concurrent (threadDelay) 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 Just i -> if i >= length l - 1 then 0 else i + 1
Nothing -> 0 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 -- | Given a maximum length, splits a list into sublists
splitInSubListsAt :: Int -> [a] -> [[a]] splitInSubListsAt :: Int -> [a] -> [[a]]
splitInSubListsAt _ [] = [] splitInSubListsAt _ [] = []