-- | Read the hash part of the currunt URL.
getHash :: MonadIO m => m String
getHash = liftIO $ fromJSStr `fmap` jsGetHash
getHash :: MonadIO m => m String
getHash = liftIO $ fromJSStr `fmap` jsGetHash
getHash = liftIO $ fromJSStr `fmap` jsGetHash