- flip runRes itr
- $ do setStatus $ aboStatus abo
- mapM_ (uncurry setHeader) $ fromHeaders $ aboHeaders abo
- output $ LT.encodeUtf8 $ abortPage conf reqM res abo
- else
- when (cnfDumpTooLateAbortionToStderr $ itrConfig itr)
- $ hPutStrLn stderr $ show abo
-
- flip runRes itr $ driftTo Done
+ flip runRes itr $
+ do setStatus $ aboStatus abo
+ mapM_ (uncurry setHeader) $ fromHeaders $ aboHeaders abo
+ output $ LT.encodeUtf8 $ abortPage itrConfig itrRequest res abo
+ else
+ when (cnfDumpTooLateAbortionToStderr itrConfig)
+ $ hPutStrLn stderr $ show abo
+ runRes (driftTo Done) itr