From 9d99d9f94e49ab7ca1232cc8b3de09b6ef956251 Mon Sep 17 00:00:00 2001 From: lassulus Date: Sun, 3 Dec 2017 21:46:07 +0100 Subject: shutdown: use writeStateToFile --- XMonad/Stockholm/Shutdown.hs | 15 +-------------- 1 file changed, 1 insertion(+), 14 deletions(-) diff --git a/XMonad/Stockholm/Shutdown.hs b/XMonad/Stockholm/Shutdown.hs index 164ddd8..ef8da71 100644 --- a/XMonad/Stockholm/Shutdown.hs +++ b/XMonad/Stockholm/Shutdown.hs @@ -7,12 +7,8 @@ module XMonad.Stockholm.Shutdown ) where -import qualified Data.Map as Map -import qualified XMonad.StackSet as W import Control.Monad -import Data.Maybe (catMaybes) import Data.Monoid -import System.Environment (getEnv) import System.Exit (exitSuccess) import XMonad @@ -39,16 +35,7 @@ handleShutdownEvent = \case shutdown :: X () shutdown = do broadcastMessage ReleaseResources - io . flush =<< asks display - let wsData = show . W.mapLayout show . windowset - maybeShow (t, Right (PersistentExtension ext)) = Just (t, show ext) - maybeShow (t, Left str) = Just (t, str) - maybeShow _ = Nothing - extState = - return . show . catMaybes . map maybeShow . Map.toList . extensibleState - s <- gets (\s -> (wsData s : extState s)) + writeStateToFile _ <- io $ do - path <- getEnv "XMONAD_STATE" - writeFile path (unlines s) exitSuccess return () -- cgit v1.2.3