From 02bf462d51dd80cd6329f715a787c1107acc29f9 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
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(-)
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