Merge pull request #9 from cryogenian/aff

Added Aff interface

Author: jdegoes

MODULES.md

@@ -33,6 +33,20 @@ matches' :: forall e a. (String -> String) -> Match a -> (Maybe a -> a -> Eff e
 ```
 
 
+#### `matchesAff'`
+
+``` purescript
+matchesAff' :: forall e a. (String -> String) -> Match a -> Aff e (Tuple (Maybe a) a)
+```
+
+
+#### `matchesAff`
+
+``` purescript
+matchesAff :: forall e a. Match a -> Aff e (Tuple (Maybe a) a)
+```
+
+
 #### `matchHash`
 
 ``` purescript
@@ -201,6 +215,23 @@ type Route = List RoutePart
 
 
 
+## Module Routing.Hash.Aff
+
+#### `modifyHash`
+
+``` purescript
+modifyHash :: forall e. (String -> String) -> Aff (dom :: DOM | e) Unit
+```
+
+
+#### `setHash`
+
+``` purescript
+setHash :: forall e. String -> Aff (dom :: DOM | e) Unit
+```
+
+
+
 ## Module Routing.Match.Class
 
 #### `MatchClass`

bower.json

@@ -28,7 +28,8 @@
     "purescript-semirings": "~0.1.1",
     "purescript-lists": "~0.6.0",
     "purescript-globals": "~0.1.6",
-    "purescript-dom": "~0.1.2"
+    "purescript-dom": "~0.1.2",
+    "purescript-aff": "~0.10.0"
   },
   "devDependencies": {
     "purescript-timers": "~0.0.8",

src/Routing.purs

@@ -4,12 +4,16 @@ module Routing (
   matches,
   matches',
   matchHash,
-  matchHash'
+  matchHash',
+  matchesAff,
+  matchesAff'
   ) where
 
 import Control.Monad.Eff
+import Control.Monad.Aff
 import Data.Maybe
 import Data.Either
+import Data.Tuple
 import qualified Data.String.Regex as R
 
 import Routing.Parser
@@ -49,8 +53,18 @@ matches' :: forall e a. (String -> String) ->
 matches' decoder routing cb = hashes $ \old new ->
   let mr = matchHash' decoder routing
       fst = either (const Nothing) Just $ mr old
-  in either (const $ pure unit) (cb fst) $ mr new 
+  in either (const $ pure unit) (cb fst) $ mr new
 
+matchesAff' :: forall e a. (String -> String) ->
+               Match a -> Aff e (Tuple (Maybe a) a)
+matchesAff' decoder routing =
+  makeAff \_ k -> do 
+    matches' decoder routing \old new ->
+      k $ Tuple old new
+
+matchesAff :: forall e a. Match a -> Aff e (Tuple (Maybe a) a)
+matchesAff = matchesAff' decodeURIComponent
+  
 
 matchHash :: forall a. Match a -> String -> Either String a
 matchHash = matchHash' decodeURIComponent

src/Routing/Hash/Aff.purs

@@ -0,0 +1,13 @@
+module Routing.Hash.Aff where
+
+import DOM 
+import Control.Monad.Aff
+import Control.Monad.Eff.Class
+import qualified Routing.Hash as R
+
+modifyHash :: forall e. (String -> String) -> Aff (dom :: DOM|e) Unit 
+modifyHash func = liftEff $ R.modifyHash func 
+
+setHash :: forall e. String -> Aff (dom :: DOM|e) Unit 
+setHash hash = liftEff $ R.setHash hash
+