Commit a4e388b1 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[CLEAN] removing debug code.

parent 998ad895
...@@ -173,12 +173,7 @@ null (Sessions {sessions:seq}) = Seq.null seq ...@@ -173,12 +173,7 @@ null (Sessions {sessions:seq}) = Seq.null seq
-- | Will attempt to load saved sessions from localstorage. should log -- | Will attempt to load saved sessions from localstorage. should log
-- | if decoding fails -- | if decoding fails
loadSessions :: Effect Sessions loadSessions :: Effect Sessions
loadSessions = do loadSessions = getls >>= getItem localStorageKey >>= handleMaybe
-- getls >>= getItem localStorageKey >>= handleMaybe
tls <- getls
ls <- getItem localStorageKey tls
_ <- logs (show <$> ls)
handleMaybe ls
where where
-- a localstorage lookup can find nothing -- a localstorage lookup can find nothing
handleMaybe (Just val) = handleEither (parse val >>= decode) handleMaybe (Just val) = handleEither (parse val >>= decode)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment