twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
XMonad/Prompt.hs
View File

@ -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 _ [] = []