From 387a0eecc72f8db81d341c9f1d8fce7cc2bfbb44 Mon Sep 17 00:00:00 2001
From: Joshua Potter <jrpotter2112@gmail.com>
Date: Wed, 29 Nov 2017 20:22:31 -0800
Subject: [PATCH] Add remaining Arrow properties.

---
 src/Postlude.hs | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/src/Postlude.hs b/src/Postlude.hs
index 94e15f7..e931011 100644
--- a/src/Postlude.hs
+++ b/src/Postlude.hs
@@ -3,35 +3,43 @@
 module Postlude (module X) where
 
 import Control.Applicative as X
-  ( (*>)
+  ( Applicative
+  , (*>)
   , (<$>)
   , (<*)
   , (<*>)
-  , Applicative
   , pure
   )
 
 import Control.Arrow as X
-  ( (&&&)
+  ( Arrow
+  , ArrowChoice
+  , ArrowLoop
+  , ArrowMonad
+  , ArrowPlus
+  , ArrowZero
+  , (&&&)
   , (***)
   , (+++)
+  , (<+>)
   , (<<<)
   , (>>>)
   , (|||)
-  , Arrow
-  , ArrowChoice
   , arr
   , first
   , left
+  , loop
   , returnA
   , right
   , second
+  , zeroArrow
   )
 
 import Control.Monad as X
   ( Functor
   , Monad
   , MonadPlus
+  , (<$)
   , (>>)
   , (>>=)
   , fail