Switch to programmer dvorak
diff --git a/modules/xmonad/XMonadLog.hs b/modules/xmonad/XMonadLog.hs
index fb5bbe7..7586537 100644
--- a/modules/xmonad/XMonadLog.hs
+++ b/modules/xmonad/XMonadLog.hs
@@ -2,12 +2,13 @@
module XMonadLog where
-import qualified DBus as D
-import qualified DBus.Client as D
+import qualified DBus as D
+import qualified DBus.Client as D
-import qualified Codec.Binary.UTF8.String as UTF8
+import qualified Codec.Binary.UTF8.String as UTF8
+import XMonad.Actions.WorkspaceNames (workspaceNamesPP)
import XMonad.Hooks.StatusBar.PP
-import XMonad.Util.Replace (replace)
+import XMonad.Util.Replace (replace)
xmonadLog :: IO D.Client
xmonadLog = let opts = [D.nameAllowReplacement, D.nameReplaceExisting, D.nameDoNotQueue]