diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-04-30 10:24:47 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-04-30 10:24:47 +0200 |
| commit | 02bf462d51dd80cd6329f715a787c1107acc29f9 (patch) | |
| tree | 033a5b06c32c3483e3bbef3a1a22ddd6d67001f3 | |
| parent | ce8dc62233514e70c5e4785574df9d07a5d2739b (diff) | |
| download | XMonadContrib-02bf462d51dd80cd6329f715a787c1107acc29f9.tar.gz XMonadContrib-02bf462d51dd80cd6329f715a787c1107acc29f9.tar.xz XMonadContrib-02bf462d51dd80cd6329f715a787c1107acc29f9.zip | |
Remove redundant type signature
darcs-hash:20080430082447-a5988-a5079e1a77749855628c0e83621c9df3206139f9.gz
| -rw-r--r-- | XMonad/Layout/Decoration.hs | 2 |
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) |