twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 04:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Store deserialized data after reading in X.U.ExtensibleState

Browse Source
This commit is contained in:
Daniel Schoepe
2009-11-07 10:38:32 +00:00
parent 8ec090cfbf
commit 86f6b327ae
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
XMonad/Util/ExtensibleState.hs
View File

@@ -92,14 +92,17 @@ getState = getState' undefined -- `trick' to avoid needing -XScopedTypeVariables
getState' :: ExtensionClass a => a -> X a
getState' k = do
v <- gets $ M.lookup (show . typeOf $ k) . extensibleState
return $ case v of
Just (Right (StateExtension val)) -> toValue val
Just (Right (PersistentExtension val)) -> toValue val
Just (Left str) -> case extensionType (undefined `asTypeOf` k) of
PersistentExtension x -> maybe initialValue id $
cast =<< safeRead str `asTypeOf` (Just x)
_ -> initialValue
_ -> initialValue
case v of
Just (Right (StateExtension val)) -> return $ toValue val
Just (Right (PersistentExtension val)) -> return $ toValue val
Just (Left str) -> case extensionType (undefined `asTypeOf` k) of
PersistentExtension x -> do
let val = maybe initialValue id $
cast =<< safeRead str `asTypeOf` (Just x)
putState (val `asTypeOf` k)
return val
_ -> return $ initialValue
_ -> return $ initialValue
safeRead str = case reads str of
[(x,"")] -> Just x
_ -> Nothing