html

2024-03-14 01:15:55 -06:00
parent 8fd75a67d3
commit c5a293acf8
9 changed files with 185 additions and 77 deletions
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -720,7 +720,7 @@ class HasArrowStops s t a b | s -> a, t -> b, s b -> t, t a -> s where

 instance HasArrowStops Type Type Type Type where
    arrowStops k (s :-> t) = (:->) <$> k s <*> arrowStops k t
-    arrowStops k t = k t
+    arrowStops k t         = k t

 --------------------------------------------------------------------------------