Merge pull request #7 from safareli/ps11

Update for PureScript 0.11

Author: safareli

bower.json

@@ -18,8 +18,9 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-exists": "^2.0.0",
-    "purescript-prelude": "^2.1.0",
-    "purescript-newtype": "^1.1.0"
+    "purescript-exists": "^3.0.0",
+    "purescript-prelude": "^3.0.0",
+    "purescript-newtype": "^2.0.0",
+    "purescript-transformers": "^3.1.0"
   }
 }

package.json

@@ -2,12 +2,12 @@
   "private": true,
   "scripts": {
     "clean": "rimraf output && rimraf .pulp-cache",
-    "build": "pulp build --censor-lib --strict"
+    "build": "pulp build -- --censor-lib --strict"
   },
   "devDependencies": {
-    "pulp": "^9.0.1",
-    "purescript": "^0.10.1",
-    "purescript-psa": "^0.3.9",
+    "pulp": "^11.0.0",
+    "purescript": "^0.11.0",
+    "purescript-psa": "^0.5.0",
     "rimraf": "^2.5.4"
   }
 }

src/Data/Functor/Mu.purs

@@ -2,6 +2,7 @@ module Data.Functor.Mu
   ( Mu(..)
   , roll
   , unroll
+  , transMu
   ) where
 
 import Prelude

src/Data/Functor/Nu.purs

@@ -1,19 +1,15 @@
 module Data.Functor.Nu
   ( Nu(..)
   , NuF(..)
-  , Store
   , unfold
   , observe
   ) where
 
 import Prelude
 import Data.Exists (Exists, mkExists, runExists)
 import Data.Newtype (class Newtype)
-
-type Store s a =
-  { pos :: s
-  , peek :: s -> a
-  }
+import Data.Tuple (Tuple(..))
+import Control.Comonad.Store (Store, store, runStore)
 
 newtype NuF f a = NuF (Store a (f a))
 
@@ -23,14 +19,11 @@ newtype Nu f = Nu (Exists (NuF f))
 derive instance newtypeNu :: Newtype (Nu f) _
 
 unfold :: forall f a. a -> (a -> f a) -> Nu f
-unfold pos peek =
-  Nu $ mkExists $ NuF
-    { pos : pos
-    , peek : peek
-    }
+unfold pos peek = Nu $ mkExists $ NuF $ store peek pos
 
 observe :: forall f. Functor f => Nu f -> f (Nu f)
-observe (Nu e) =
-  runExists
-    (\(NuF { peek, pos }) -> flip unfold peek <$> peek pos)
-    e
+observe (Nu e) = runExists observeF e
+
+observeF :: forall f a. Functor f => NuF f a -> f (Nu f)
+observeF (NuF x) = case runStore x of
+  (Tuple peek pos) -> flip unfold peek <$> peek pos