From 02bf462d51dd80cd6329f715a787c1107acc29f9 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 30 Apr 2008 10:24:47 +0200 Subject: Remove redundant type signature darcs-hash:20080430082447-a5988-a5079e1a77749855628c0e83621c9df3206139f9.gz --- XMonad/Layout/Decoration.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad') diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index 15fc99c..8f6ec21 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -253,7 +253,7 @@ instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration d return (dwrs_to_wrs ndwrs, Just (Decoration (I (Just (s {decos = ndwrs}))) sh t ds)) handleMess (Decoration (I (Just s@(DS {decos = dwrs}))) sh t ds) m - | Just e <- fromMessage m :: Maybe Event = do decorationEventHook ds s e + | Just e <- fromMessage m = do decorationEventHook ds s e handleEvent sh t s e return Nothing | Just Hide <- fromMessage m = do hideDecos (map snd dwrs) -- cgit v1.2.3