From cd9f7be86f0fdc86edfcd6cb38c2ea7a22373dc7 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Sun, 13 Apr 2008 09:01:17 +0200 Subject: stictify some fields darcs-hash:20080413070117-cba2c-a06cb815883601b71eda55a75b34af1d43ebe0fd.gz --- XMonad/Prompt.hs | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'XMonad/Prompt.hs') diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index d1426a6..275f454 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -73,18 +73,18 @@ import System.Posix.Files type XP = StateT XPState IO data XPState = - XPS { dpy :: Display - , rootw :: Window - , win :: Window - , screen :: Rectangle + XPS { dpy :: !Display + , rootw :: !Window + , win :: !Window + , screen :: !Rectangle , complWin :: Maybe Window , complWinDim :: Maybe ComplWindowDim , completionFunction :: String -> IO [String] - , gcon :: GC - , fontS :: XMonadFont - , xptype :: XPType + , gcon :: !GC + , fontS :: !XMonadFont + , xptype :: !XPType , command :: String - , offset :: Int + , offset :: !Int , history :: [History] , config :: XPConfig } @@ -96,10 +96,10 @@ data XPConfig = , fgHLight :: String -- ^ Font color of a highlighted completion entry , bgHLight :: String -- ^ Background color of a highlighted completion entry , borderColor :: String -- ^ Border color - , promptBorderWidth :: Dimension -- ^ Border width + , promptBorderWidth :: !Dimension -- ^ Border width , position :: XPPosition -- ^ Position: 'Top' or 'Bottom' - , height :: Dimension -- ^ Window height - , historySize :: Int -- ^ The number of history entries to be saved + , height :: !Dimension -- ^ Window height + , historySize :: !Int -- ^ The number of history entries to be saved , defaultText :: String -- ^ The text by default in the prompt line } deriving (Show, Read) -- cgit v1.2.3