aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2008-04-30 10:24:47 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2008-04-30 10:24:47 +0200
commit02bf462d51dd80cd6329f715a787c1107acc29f9 (patch)
tree033a5b06c32c3483e3bbef3a1a22ddd6d67001f3 /XMonad
parentce8dc62233514e70c5e4785574df9d07a5d2739b (diff)
downloadXMonadContrib-02bf462d51dd80cd6329f715a787c1107acc29f9.tar.gz
XMonadContrib-02bf462d51dd80cd6329f715a787c1107acc29f9.tar.xz
XMonadContrib-02bf462d51dd80cd6329f715a787c1107acc29f9.zip
Remove redundant type signature
darcs-hash:20080430082447-a5988-a5079e1a77749855628c0e83621c9df3206139f9.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout/Decoration.hs2
1 files changed, 1 insertions, 1 deletions
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)