Skip to content

Commit 74d53b1

Browse files
committed
Fix non-termination issue
1 parent d2bc103 commit 74d53b1

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/Control/Monad/Free.purs.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ instance applyFree :: (Functor f) => Apply (Free f) where
1717
(<*>) = ap
1818

1919
instance applicativeFree :: (Functor f) => Applicative (Free f) where
20-
pure = return
20+
pure = Pure
2121

2222
instance bindFree :: (Functor f) => Bind (Free f) where
2323
(>>=) (Pure a) f = f a

0 commit comments

Comments
 (0)