Put 'finally' directly underneath 'later'.

Author: epost

src/Control/Monad/Aff.purs

@@ -90,6 +90,13 @@ module Control.Monad.Aff
   later' :: forall e a. Number -> Aff e a -> Aff e a
   later' n aff = runFn3 _setTimeout nonCanceler n aff
 
+  -- | Compute `aff1`, followed by `aff2` regardless of whether `aff1` terminated successfully.
+  finally :: forall e a b. Aff e a -> Aff e b -> Aff e a
+  finally aff1 aff2 = do
+    x <- attempt aff1
+    aff2
+    either throwError pure x
+
   -- | Forks the specified asynchronous computation so subsequent computations
   -- | will not block on the result of the computation.
   -- |
@@ -106,13 +113,6 @@ module Control.Monad.Aff
   apathize :: forall e a. Aff e a -> Aff e Unit
   apathize a = const unit <$> attempt a
 
-  -- | Compute `aff1`, followed by `aff2` regardless of whether `aff1` terminated successfully.
-  finally :: forall e a b. Aff e a -> Aff e b -> Aff e a
-  finally aff1 aff2 = do
-    x <- attempt aff1
-    aff2
-    either throwError pure x
-
   -- | Lifts a synchronous computation and makes explicit any failure from exceptions.
   liftEff' :: forall e a. Eff (err :: Exception | e) a -> Aff e (Either Error a)
   liftEff' eff = attempt (_unsafeInterleaveAff (runFn2 _liftEff nonCanceler eff))