ghcjs-base-stub 0.1.0.3 → 0.1.0.4

raw patch · 3 files changed

+122/−1 lines, 3 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• README.md +4/−0
• ghcjs-base-stub.cabal +2/−1
• src/JavaScript/Web/Location.hs +116/−0

@@ -1,4 +1,5 @@ [![Hackage](https://img.shields.io/hackage/v/ghcjs-base-stub.svg)](https://hackage.haskell.org/package/ghcjs-base-stub)+[![Build Status](https://secure.travis-ci.org/louispan/ghcjs-base-stub.png?branch=master)](http://travis-ci.org/louispan/ghcjs-base-stub)  Fake stubs for GHCJS base to allow GHCJS projects to be compiled using GHC. This also allows developing under intero, and generating haddocks.@@ -24,3 +25,6 @@  * 0.1.0.3   - Added Javascript.Web.Storage++* 0.1.0.4+  - Added Javascript.Web.Location

@@ -1,5 +1,5 @@ name:                ghcjs-base-stub-version:             0.1.0.3+version:             0.1.0.4 synopsis:            Allow GHCJS projects to compile under GHC and develop using intero. description:         Allow GHCJS projects to compile under GHC and develop using intero. homepage:            https://github.com/louispan/javascript-stub#readme@@ -44,6 +44,7 @@                        JavaScript.Cast                        JavaScript.Object                        JavaScript.Object.Internal+                       JavaScript.Web.Location                        JavaScript.Web.Storage       build-depends:   aeson >= 0.11 && < 2                      , attoparsec >= 0.13 && < 1

@@ -0,0 +1,116 @@+{-# LANGUAGE OverloadedStrings #-}++module JavaScript.Web.Location ( Location+                               , getWindowLocation+                               , getHref+                               , setHref+                               , getProtocol+                               , setProtocol+                               , getHost+                               , setHost+                               , getHostname+                               , setHostname+                               , getPort+                               , setPort+                               , getPathname+                               , setPathname+                               , getSearch+                               , setSearch+                               , getHash+                               , setHash+                               , getUsername+                               , setUsername+                               , getPassword+                               , setPassword+                               , getOrigin+                               , assign+                               , reload+                               , replace+                               ) where++import Data.Map.Strict (Map)+import qualified Data.Map.Strict as M+import Data.IORef (IORef, modifyIORef, newIORef, readIORef)+import Data.JSString hiding (replace)+import System.IO.Unsafe (unsafePerformIO)++newtype Location = Location (IORef (Map JSString JSString))++windowLocation :: Location+windowLocation = Location . unsafePerformIO $ newIORef mempty+{-# NOINLINE windowLocation #-}++getWindowLocation :: IO Location+getWindowLocation = pure windowLocation++getHref :: Location -> IO JSString+getHref (Location l) = (M.! "href") <$> readIORef l++setHref :: JSString -> Location -> IO ()+setHref v (Location l) = modifyIORef l $ M.insert "href" v++getProtocol :: Location -> IO JSString+getProtocol (Location l) = (M.! "protocol") <$> readIORef l++setProtocol :: JSString -> Location -> IO ()+setProtocol v (Location l) = modifyIORef l $ M.insert "protocol" v++getHost :: Location -> IO JSString+getHost (Location l) = (M.! "host") <$> readIORef l++setHost :: JSString -> Location -> IO ()+setHost v (Location l) = modifyIORef l $ M.insert "host" v++getHostname :: Location -> IO JSString+getHostname (Location l) = (M.! "hostname") <$> readIORef l++setHostname :: JSString -> Location -> IO ()+setHostname v (Location l) = modifyIORef l $ M.insert "hostname" v++getPort :: Location -> IO JSString+getPort (Location l) = (M.! "port") <$> readIORef l++setPort :: JSString -> Location -> IO ()+setPort v (Location l) = modifyIORef l $ M.insert "port" v++getPathname :: Location -> IO JSString+getPathname (Location l) = (M.! "pathname") <$> readIORef l++setPathname :: JSString -> Location -> IO ()+setPathname v (Location l) = modifyIORef l $ M.insert "pathname" v++getSearch :: Location -> IO JSString+getSearch (Location l) = (M.! "search") <$> readIORef l++setSearch :: JSString -> Location -> IO ()+setSearch v (Location l) = modifyIORef l $ M.insert "search" v++getHash :: Location -> IO JSString+getHash (Location l) = (M.! "hash") <$> readIORef l++setHash :: JSString -> Location -> IO ()+setHash v (Location l) = modifyIORef l $ M.insert "hash" v++getUsername :: Location -> IO JSString+getUsername (Location l) = (M.! "username") <$> readIORef l++setUsername :: JSString -> Location -> IO ()+setUsername v (Location l) = modifyIORef l $ M.insert "username" v++getPassword :: Location -> IO JSString+getPassword (Location l) = (M.! "password") <$> readIORef l++setPassword :: JSString -> Location -> IO ()+setPassword v (Location l) = modifyIORef l $ M.insert "password" v++getOrigin :: Location -> IO JSString+getOrigin (Location l) = (M.! "origin") <$> readIORef l++assign :: JSString -> Location -> IO ()+assign _ _ = pure ()++reload :: Bool -> Location -> IO ()+reload _ _ = pure ()++replace :: JSString -> Location -> IO ()+replace _ _ = pure ()