diff --git a/tv/2configs/xserver/xmonad/Util/Shutdown.hs b/tv/2configs/xserver/xmonad/Util/Shutdown.hs
index c5a3edb80..89e22b4e7 100644
--- a/tv/2configs/xserver/xmonad/Util/Shutdown.hs
+++ b/tv/2configs/xserver/xmonad/Util/Shutdown.hs
@@ -48,6 +48,6 @@ shutdown = do
   s <- gets (\s -> (wsData s : extState s))
   _ <- io $ do
     path <- getEnv "XMONAD_STATE"
-    writeFile path (concatMap (++"\n") s)
+    writeFile path (unlines s)
     exitSuccess
   return ()