strictify some fields

2025-05-19 03:20:21 -07:00 · 2008-04-13 06:59:58 +00:00 · 2008-04-13 06:59:58 +00:00 · 58f10da612
commit 58f10da612
parent ab782c936a
1 changed files with 4 additions and 4 deletions
--- 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