Add export lists to all modules.

1 files changed, 25 insertions, 33 deletions

diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs
index 02ea94e..34bbdff 100644
--- a/src/Rahm/Desktop/Keys/Wml.hs
+++ b/src/Rahm/Desktop/Keys/Wml.hs
@@ -12,7 +12,30 @@
 -- &z!~@,,^   // The window tagged with z and The last window on the screen third from the left
 -- @@s        // All the windows that share a workspace with the window tagged s
 -- \%@s       // All windows except those on workspace 's'
-module Rahm.Desktop.Keys.Wml where
+module Rahm.Desktop.Keys.Wml
+  ( readWorkspaceMacro,
+    readWindowsetMacro,
+    readNextWorkspace,
+    readNextLocationSet,
+    moveLocationToWorkspace,
+    moveLocationToWorkspaceFn,
+    gotoWorkspaceFn,
+    readMacroString,
+    justWorkspace,
+    justWorkspaceWithPreferredWindow,
+    blackHoleWorkspace,
+    alternateWorkspace,
+    floatWorkspace,
+    joinMaybe,
+    feedKeys,
+    feedKeysT,
+    workspaceForKeysT,
+    workspaceForKeys,
+    locationSetForKeysT,
+    locationSetForKeys,
+    readNextWorkspaceName,
+  )
+where
 
 import Control.Monad (forM_, join, when)
 import Control.Monad.Trans.Class (MonadTrans (lift))
@@ -111,38 +134,7 @@ import XMonad
   )
 import XMonad.Prompt.ConfirmPrompt (confirmPrompt)
 import qualified XMonad.Util.ExtensibleState as XS (get, modify)
-import Prelude
-  ( Applicative,
-    Eq ((==)),
-    Foldable (elem, null),
-    Fractional ((/)),
-    Functor (fmap),
-    Maybe (..),
-    Monad (return),
-    MonadFail (fail),
-    Num ((-)),
-    Read,
-    Show (show),
-    String,
-    Traversable (mapM),
-    break,
-    concatMap,
-    filter,
-    flip,
-    id,
-    map,
-    mapM_,
-    not,
-    reverse,
-    snd,
-    tail,
-    ($),
-    (++),
-    (.),
-    (<$>),
-    (=<<),
-    (||),
-  )
+import Prelude hiding (head, last)
 
 type KeyString = [(KeyMask, KeySym, String)]