diff options
| author | Don Stewart <dons@galois.com> | 2008-03-22 20:22:48 +0100 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2008-03-22 20:22:48 +0100 |
| commit | 465ba6e5ddedaaf438d1252bbf50f698ce1cff36 (patch) | |
| tree | 14304a462936a6087657c4e7f6788fdfec0f5a1c | |
| parent | de3e10a5a28fd3e9b5b73ce89ce579f8aa57125c (diff) | |
| download | metatile-465ba6e5ddedaaf438d1252bbf50f698ce1cff36.tar metatile-465ba6e5ddedaaf438d1252bbf50f698ce1cff36.zip | |
strict fields on layout messages
darcs-hash:20080322192248-cba2c-cbcffa5b07f14525a143b6d77248ce0406a5ffc1
| -rw-r--r-- | XMonad/Layout.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs index fab7db2..2347cb9 100644 --- a/XMonad/Layout.hs +++ b/XMonad/Layout.hs @@ -46,7 +46,7 @@ import Data.Maybe (fromMaybe) data Resize = Shrink | Expand deriving Typeable -- | You can also increase the number of clients in the master pane -data IncMasterN = IncMasterN Int deriving Typeable +data IncMasterN = IncMasterN !Int deriving Typeable instance Message Resize instance Message IncMasterN @@ -57,7 +57,7 @@ data Full a = Full deriving (Show, Read) instance LayoutClass Full a -- | The builtin tiling mode of xmonad, and its operations. -data Tall a = Tall Int Rational Rational deriving (Show, Read) +data Tall a = Tall !Int !Rational !Rational deriving (Show, Read) -- TODO should be capped [0..1] .. -- a nice pure layout, lots of properties for the layout, and its messages, in Properties.hs |