fix stack issue for listT map (#18)

fix #16

Author: safareli

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"
   }
 }

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