onHashChange' :: MonadIO m
              => (JSString -> JSString -> IO ())
              -> m ()
onHashChange' f = do
    firsthash <- getHash'
    liftIO $ jsOnHashChange firsthash f
onHashChange' :: MonadIO m
              => (JSString -> JSString -> IO ())
              -> m ()
onHashChange' f = do
    firsthash <- getHash'
    liftIO $ jsOnHashChange firsthash f
onHashChange' f = do
    firsthash <- getHash'
    liftIO $ jsOnHashChange firsthash f