diff options
| author | Don Stewart <dons@galois.com> | 2008-04-13 09:01:17 +0200 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2008-04-13 09:01:17 +0200 |
| commit | cd9f7be86f0fdc86edfcd6cb38c2ea7a22373dc7 (patch) | |
| tree | bcf53d06784e98e9dae4381ccd025774d160f3bf | |
| parent | ed0f54533903d4bcd4dfcd12fc2fe54a7f21cdda (diff) | |
| download | XMonadContrib-cd9f7be86f0fdc86edfcd6cb38c2ea7a22373dc7.tar.gz XMonadContrib-cd9f7be86f0fdc86edfcd6cb38c2ea7a22373dc7.tar.xz XMonadContrib-cd9f7be86f0fdc86edfcd6cb38c2ea7a22373dc7.zip | |
stictify some fields
darcs-hash:20080413070117-cba2c-a06cb815883601b71eda55a75b34af1d43ebe0fd.gz
| -rw-r--r-- | XMonad/Prompt.hs | 22 |
1 files changed, 11 insertions, 11 deletions
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) |