From 74a8c5ede5dbe7752cbb108e1659ca8800ed8921 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Sun, 27 Apr 2008 21:12:47 +0200 Subject: stricitfy some gap fields darcs-hash:20080427191247-cba2c-678803461b066a68e6370f44d855ff445539da71.gz --- XMonad/Layout/Gaps.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Layout/Gaps.hs') diff --git a/XMonad/Layout/Gaps.hs b/XMonad/Layout/Gaps.hs index a05bdbb..7734836 100644 --- a/XMonad/Layout/Gaps.hs +++ b/XMonad/Layout/Gaps.hs @@ -93,9 +93,9 @@ data Gaps a = Gaps GapSpec [Direction] -- | Messages which can be sent to a gap modifier. data GapMessage = ToggleGaps -- ^ Toggle all gaps. - | ToggleGap Direction -- ^ Toggle a single gap. - | IncGap Int Direction -- ^ Increase a gap by a certain number of pixels. - | DecGap Int Direction -- ^ Decrease a gap. + | ToggleGap !Direction -- ^ Toggle a single gap. + | IncGap !Int !Direction -- ^ Increase a gap by a certain number of pixels. + | DecGap !Int !Direction -- ^ Decrease a gap. deriving (Typeable) instance Message GapMessage -- cgit v1.2.3