From 2c98d5504bf44706ea7ee9747526dd652bc7824e Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sun, 15 Nov 2009 03:40:01 +0100 Subject: 'io' and 'fi' are defined outside of Prompt Ignore-this: 3426056362db9cbfde7d2f4edbfe6f36 darcs-hash:20091115024001-1499c-c9804d0b6432f429f6c403d1dade7b4343532b9e.gz --- XMonad/Prompt.hs | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) (limited to 'XMonad/Prompt.hs') 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 _ [] = [] -- cgit v1.2.3