LocalStorage in GHCJS

localStorageTest.hs

import Reflex.Dom
import GHCJS.DOM.Window (getLocalStorage)
import GHCJS.DOM.Storage (setItem, getItem)
import Control.Monad.IO.Class
import Data.JSString (unpack)

main :: IO ()
main = mainWidget localStorageTest

localStorageTest :: MonadWidget t m => m ()
localStorageTest = do
  wv <- askWebView
  el "div" $ do
    t <- textInput def
    set <- button "set value"
    performEvent_ $ ffor (tag (current $ value t) set) $ \v -> liftIO $ do
      Just s <- getLocalStorage wv
      setItem s "someKey" v
  el "div" $ do
    get <- button "get value"
    val <- performEvent $ ffor get $ \_ -> liftIO $ do
      Just s <- getLocalStorage wv
      fmap unpack <$> getItem s "someKey"
    display =<< holdDyn Nothing val
  return ()