fix stack issue for listT map (#18)

fix #16
purescript-contrib · Jun 10, 2019 · 14eb29f · 14eb29f
1 parent 782892c
commit 14eb29f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/package.json b/package.json
@@ -5,8 +5,8 @@
     "test": "pulp test"
   },
   "devDependencies": {
-    "purescript-psa": "^0.6.0",
-    "purescript": "^0.12.0",
-    "pulp": "^12.2.0"
+    "purescript-psa": "^0.7.3",
+    "purescript": "^0.13.0",
+    "pulp": "^13.0.0"
   }
 }
diff --git a/src/Options/Applicative/Internal.purs b/src/Options/Applicative/Internal.purs
@@ -217,9 +217,9 @@ runListT xs = do
     TCons x xt -> liftM1 (List.Cons x) (runListT xt)
 
 instance listTFunctor :: Monad m => Functor (ListT m) where
-  map f = ListT
-         <<< liftM1 (bimapTStep f (map f))
-         <<< stepListT
+  map f v = ListT
+         $ liftM1 (bimapTStep f (map f))
+         $ stepListT v
 
 instance listTApply :: Monad m => Apply (ListT m) where
   apply = ap