aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2008-03-22 20:22:48 +0100
committerDon Stewart <dons@galois.com>2008-03-22 20:22:48 +0100
commit1e65a46c78cfc5ec611962c0923b240a05367072 (patch)
tree14304a462936a6087657c4e7f6788fdfec0f5a1c
parent1ce21b8632cdd478aea27ed59e7e2649815788fd (diff)
downloadxmonad-1e65a46c78cfc5ec611962c0923b240a05367072.tar.gz
xmonad-1e65a46c78cfc5ec611962c0923b240a05367072.tar.xz
xmonad-1e65a46c78cfc5ec611962c0923b240a05367072.zip
strict fields on layout messages
darcs-hash:20080322192248-cba2c-cbcffa5b07f14525a143b6d77248ce0406a5ffc1.gz
-rw-r--r--XMonad/Layout.hs4
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