aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2008-04-13 08:59:58 +0200
committerDon Stewart <dons@galois.com>2008-04-13 08:59:58 +0200
commited0f54533903d4bcd4dfcd12fc2fe54a7f21cdda (patch)
treeae9bb92355b3b9efe23175abe3ba359ba654fa4a
parent08aa4d905be63d7de87808f5ae0dec88e1a870d0 (diff)
downloadXMonadContrib-ed0f54533903d4bcd4dfcd12fc2fe54a7f21cdda.tar.gz
XMonadContrib-ed0f54533903d4bcd4dfcd12fc2fe54a7f21cdda.tar.xz
XMonadContrib-ed0f54533903d4bcd4dfcd12fc2fe54a7f21cdda.zip
strictify some fields
darcs-hash:20080413065958-cba2c-f266364bfe708c277aae50213f97f4a7ea979bc5.gz
-rw-r--r--XMonad/Layout/HintedTile.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Layout/HintedTile.hs b/XMonad/Layout/HintedTile.hs
index 34f0898..4266cfc 100644
--- a/XMonad/Layout/HintedTile.hs
+++ b/XMonad/Layout/HintedTile.hs
@@ -40,10 +40,10 @@ import Control.Monad
-- "XMonad.Doc.Extending#Editing_the_layout_hook"
data HintedTile a = HintedTile
- { nmaster :: Int
- , delta, frac :: Rational
- , alignment :: Alignment
- , orientation :: Orientation
+ { nmaster :: !Int
+ , delta, frac :: !Rational
+ , alignment :: !Alignment
+ , orientation :: !Orientation
} deriving ( Show, Read )
data Orientation = Wide | Tall