Merge pull request #22 from puffnfresh/bug/inconsistent-instances

Make Apply consistent with Bind

Author: paf31

src/Control/Monad/ListT.purs

@@ -214,7 +214,10 @@ module Control.Monad.ListT
             go (Just (Tuple a b)) = cons' (pure a) (defer \_ -> (go (f b)))
 
   instance applyListT :: (Monad f) => Apply (ListT f) where 
-    (<*>) = zipWith g where g f x = f x
+    (<*>) f x = do
+      f' <- f
+      x' <- x
+      return (f x)
 
   instance applicativeListT :: (Monad f) => Applicative (ListT f) where
     pure = singleton