From 7c607c0602b75ca6342cf6671ef01b794d3d37f7 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Mon, 9 Apr 2007 09:23:02 +0200
Subject: Use -funbox-strict-fields, rather than UNPACK pragmas. cleaner code.

darcs-hash:20070409072302-9c5c1-f55281c59754fa1fe17dbfe406f2fe2c71f7061d.gz
---
 XMonad.hs | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

(limited to 'XMonad.hs')

diff --git a/XMonad.hs b/XMonad.hs
index afe2512..9c983e6 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -33,18 +33,20 @@ import qualified Data.Map as M
 -- | XState, the window manager state.
 -- Just the display, width, height and a window list
 data XState = XState
-    { display       :: Display
-    , screen        :: {-# UNPACK #-} !ScreenNumber
-    , xineScreens   :: {-# UNPACK #-} ![Rectangle]
+    { display           :: Display
+    , screen            :: !ScreenNumber
+
+    , xineScreens       :: ![Rectangle]
     -- a mapping of workspaces to xinerama screen numbers
-    , wsOnScreen    :: {-# UNPACK #-} !(M.Map Int Int)
-    , theRoot       :: {-# UNPACK #-} !Window
-    , wmdelete      :: {-# UNPACK #-} !Atom
-    , wmprotocols   :: {-# UNPACK #-} !Atom
-    , dimensions    :: {-# UNPACK #-} !(Int,Int)
-    , workspace     :: {-# UNPACK #-} !WorkSpace      -- ^ workspace list
-    , defaultLayoutDesc :: {-# UNPACK #-} !LayoutDesc
-    , layoutDescs   :: {-# UNPACK #-} !(M.Map Int LayoutDesc)
+
+    , wsOnScreen        :: !(M.Map Int Int)
+    , theRoot           :: !Window
+    , wmdelete          :: !Atom
+    , wmprotocols       :: !Atom
+    , dimensions        :: !(Int,Int)
+    , workspace         :: !WorkSpace      -- ^ workspace list
+    , defaultLayoutDesc :: !LayoutDesc
+    , layoutDescs       :: !(M.Map Int LayoutDesc)
     -- ^ mapping of workspaces to descriptions of their layouts
     }
 
-- 
cgit v1.2.3