re-order type arguments to GArrowProd

[ghc-base.git] / GHC / HetMet / Arrow.hs

diff --git a/GHC/HetMet/Arrow.hs b/GHC/HetMet/Arrow.hs
index b79943a..2de4c42 100644 (file)
--- a/GHC/HetMet/Arrow.hs
+++ b/GHC/HetMet/Arrow.hs
@@ -90,7 +90,7 @@ instance ArrowChoice a => GArrow a Either Void where
                     eitherUnAssoc (Right (Left  y)) = Left  (Right y)
                     eitherUnAssoc (Right (Right z)) = Right        z
 
-instance ArrowChoice a => GArrowSum a (,) () Void Either where
+instance ArrowChoice a => GArrowSum a (,) () Either Void where
   ga_never = arr voidImpossible
   ga_merge = arr merge
               where