diff options
| author | Michal Minář <mic.liamg@gmail.com> | 2016-09-03 11:57:31 +0200 |
|---|---|---|
| committer | Michal Minář <mic.liamg@gmail.com> | 2016-09-03 11:57:43 +0200 |
| commit | b7cc107615781e54ef8f7234528b1aeb1b844a39 (patch) | |
| tree | c0c9f744fbe41bb73f8189be0599b8ad072fce29 | |
| parent | e07049303f8f00386d850bb0a453a9af71492a41 (diff) | |
| download | xminad-b7cc107615781e54ef8f7234528b1aeb1b844a39.tar.gz xminad-b7cc107615781e54ef8f7234528b1aeb1b844a39.tar.xz xminad-b7cc107615781e54ef8f7234528b1aeb1b844a39.zip | |
Removed compilation warning
Signed-off-by: Michal Minář <mic.liamg@gmail.com>
| -rw-r--r-- | src/XMonad/Layout/TopicDir.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/XMonad/Layout/TopicDir.hs b/src/XMonad/Layout/TopicDir.hs index e1af18e..fa2eb62 100644 --- a/src/XMonad/Layout/TopicDir.hs +++ b/src/XMonad/Layout/TopicDir.hs @@ -48,8 +48,7 @@ instance LayoutModifier TopicDir Window where return $ Just $ TopicDir (dds, wd') | otherwise = return Nothing -topicDir :: LayoutClass l a => M.Map WorkspaceId String - -> l a -> ModifiedLayout TopicDir l a +topicDir :: M.Map WorkspaceId String -> l a -> ModifiedLayout TopicDir l a topicDir m = ModifiedLayout (TopicDir (m, "")) cleanDir :: String -> X String |