Avoid Discard constraint

purescript-contrib · Feb 15, 2017 · 67ca4fc · 67ca4fc
1 parent 781edf1
commit 67ca4fc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Control/Monad/Aff.purs b/src/Control/Monad/Aff.purs
@@ -121,7 +121,7 @@ later' n aff = runFn3 _setTimeout nonCanceler n aff
 finally :: forall e a b. Aff e a -> Aff e b -> Aff e a
 finally aff1 aff2 = do
   x <- attempt aff1
-  aff2
+  _ <- aff2
   either throwError pure x
 
 -- | Forks the specified asynchronous computation so subsequent computations