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

stictify some fields

Browse Source
This commit is contained in:
Don Stewart
2008-04-13 07:01:17 +00:00
parent 58f10da612
commit c98059db64
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
XMonad/Prompt.hs
View File

@@ -73,18 +73,18 @@ import System.Posix.Files
type XP = StateT XPState IO type XP = StateT XPState IO
data XPState = data XPState =
XPS { dpy :: Display XPS { dpy :: !Display
, rootw :: Window , rootw :: !Window
, win :: Window , win :: !Window
, screen :: Rectangle , screen :: !Rectangle
, complWin :: Maybe Window , complWin :: Maybe Window
, complWinDim :: Maybe ComplWindowDim , complWinDim :: Maybe ComplWindowDim
, completionFunction :: String -> IO [String] , completionFunction :: String -> IO [String]
, gcon :: GC , gcon :: !GC
, fontS :: XMonadFont , fontS :: !XMonadFont
, xptype :: XPType , xptype :: !XPType
, command :: String , command :: String
, offset :: Int , offset :: !Int
, history :: [History] , history :: [History]
, config :: XPConfig , config :: XPConfig
} }
@@ -96,10 +96,10 @@ data XPConfig =
, fgHLight :: String -- ^ Font color of a highlighted completion entry , fgHLight :: String -- ^ Font color of a highlighted completion entry
, bgHLight :: String -- ^ Background color of a highlighted completion entry , bgHLight :: String -- ^ Background color of a highlighted completion entry
, borderColor :: String -- ^ Border color , borderColor :: String -- ^ Border color
, promptBorderWidth :: Dimension -- ^ Border width , promptBorderWidth :: !Dimension -- ^ Border width
, position :: XPPosition -- ^ Position: 'Top' or 'Bottom' , position :: XPPosition -- ^ Position: 'Top' or 'Bottom'
, height :: Dimension -- ^ Window height , height :: !Dimension -- ^ Window height
, historySize :: Int -- ^ The number of history entries to be saved , historySize :: !Int -- ^ The number of history entries to be saved
, defaultText :: String -- ^ The text by default in the prompt line , defaultText :: String -- ^ The text by default in the prompt line
} deriving (Show, Read) } deriving (Show, Read)