git.iko.soy/reflex-dom
on efaaa52 help sign in
reflex-dom/src/Reflex/Dom/Location.hs
13 lines 482 B history raw
1module Reflex.Dom.Location (getLocationHost, getLocationProtocol) where
3import Data.Text (Text)
4import Reflex.Dom.Class
5import qualified Reflex.Dom.Internal.Foreign as F
7import Control.Monad.IO.Class
9getLocationHost :: (MonadIO m) => WebViewSingleton x -> m Text
10getLocationHost (WebViewSingleton wv) = liftIO $ F.getLocationHost wv
12getLocationProtocol :: (MonadIO m) => WebViewSingleton x -> m Text
13getLocationProtocol (WebViewSingleton wv) = liftIO $ F.getLocationProtocol wv