Rename Internal to Rahm.Desktop

1 files changed, 0 insertions, 32 deletions

diff --git a/src/Internal/Logger.hs b/src/Internal/Logger.hs
deleted file mode 100644
index e5824a4..0000000
--- a/src/Internal/Logger.hs
+++ /dev/null
@@ -1,32 +0,0 @@
-module Internal.Logger where
-
-import XMonad
-import qualified XMonad.Util.ExtensibleState as XS
-import System.IO
-
-import Internal.NoPersist
-
-newtype LoggerState =
-  LoggerState {
-    logHandle :: Maybe (NoPersist Handle)
-  }
-
-instance ExtensionClass LoggerState where
-  initialValue = LoggerState Nothing
-
-logs :: String -> X ()
-logs s = do
-  LoggerState handle' <- XS.get
-
-  handle <-
-    case handle' of
-      Nothing -> do
-        handle <- io $ openFile "/tmp/xmonad.log" AppendMode
-        XS.put $ LoggerState $ Just $ NoPersist handle
-        return handle
-
-      Just (NoPersist h) -> return h
-
-  io $ do
-    hPutStrLn handle s
-    hFlush handle