From 67ca4fcfb1999cf46cc1087029be5aa5c9b2c32d Mon Sep 17 00:00:00 2001
From: Mario Lang <mlang@delysid.org>
Date: Wed, 15 Feb 2017 12:38:55 +0100
Subject: [PATCH] Avoid Discard constraint

---
 src/Control/Monad/Aff.purs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Control/Monad/Aff.purs b/src/Control/Monad/Aff.purs
index 00f1d1d..52a1041 100644
--- 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