L.WorkspaceDir: cleanup redundant {definitions,imports}

XMonad/Layout/WorkspaceDir.hs

@@ -30,20 +30,15 @@ module XMonad.Layout.WorkspaceDir (
                                   ) where
 
 import Prelude hiding (catch)
-import Control.Exception
 import System.Directory ( setCurrentDirectory, getCurrentDirectory )
 import Control.Monad ( when )
 
 import XMonad hiding ( focus )
-import XMonad.Util.Run ( runProcessWithInput )
 import XMonad.Prompt ( XPConfig )
 import XMonad.Prompt.Directory ( directoryPrompt )
 import XMonad.Layout.LayoutModifier
 import XMonad.StackSet ( tag, currentTag )
 
-econst :: Monad m => a -> IOException -> m a
-econst = const . return
-
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
 --