80cr

src/Data/Type/Require.hs

@@ -204,7 +204,8 @@ instance RequireEqRes t1 t2 ctx
 type family RequireEqRes (t1 :: k) (t2 :: k)
                      (ctx :: [ErrorMessage]) ::  Constraint where
   RequireEqRes t1 t2 ctx = If (t1 `Equal` t2) (() :: Constraint)
-    (Require (OpError (Text "\n   " :<>: ShowT t1 :<>: Text "\n/= " :<>: ShowT t2)) ctx)
+    (Require (OpError (Text "\n   " :<>: ShowT t1
+                       :<>: Text "\n/= " :<>: ShowT t2)) ctx)
 
 type family Equal (a :: k) (b :: k') :: Bool where
   Equal a a = True