From c6d5bedfa4762490581f8cd9f6d8f752b219f8e5 Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Mon, 29 Oct 2007 18:41:50 +0100
Subject: fix parse error in pattern match

darcs-hash:20071029174150-bd4d7-b52b5b5ba2ce918f36f55171297164329a9eb964.gz
---
 ToggleLayouts.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ToggleLayouts.hs')

diff --git a/ToggleLayouts.hs b/ToggleLayouts.hs
index a48ff15..ce15e52 100644
--- a/ToggleLayouts.hs
+++ b/ToggleLayouts.hs
@@ -76,8 +76,8 @@ instance (LayoutClass lt a, LayoutClass lf a) => LayoutClass (ToggleLayouts lt l
         | Just ToggleLayout <- fromMessage m = do mlf' <- handleMessage lf (SomeMessage Hide)
                                                   let lf' = maybe lf id mlf'
                                                   return $ Just $ ToggleLayouts True lt lf'
-        | Just (Toggle d),
-          d == description lt || d == description lf <- fromMessage m =
+        | Just (Toggle d) <- fromMessage m,
+          d == description lt || d == description lf =
               do mlf' <- handleMessage lf (SomeMessage Hide)
                  let lf' = maybe lf id mlf'
                  return $ Just $ ToggleLayouts True lt lf'
-- 
cgit v1.2.3