@@ -52,7 +52,7 @@ duplicateValues decls =
5252 unzip [ (pat,expr) | D.Definition (Valid.Definition pat expr _) <- decls ]
5353
5454 (portNames, portExprs) =
55− Arrow.second concat $ unzip $
55+ Arrow.second concat $ unzip $
5656 flip map [ port | D.Port port <- decls ] $ \port ->
5757 case port of
5858 D.Out name expr _ -> (name, [expr])
@@ -70,7 +70,7 @@ duplicateValues decls =
7070
7171
7272duplicateTypeDeclarations :: [D.ValidDecl] -> [String]
73−duplicateTypeDeclarations decls =
73+duplicateTypeDeclarations decls =
7474 map dupTypeError (dups (typeNames ++ aliasNames))
7575 ++ map dupCtorError (dups (ctorNames ++ aliasNames))
7676 where
@@ -118,7 +118,7 @@ illFormedTypes decls = map report (Maybe.mapMaybe isIllFormed (aliases ++ adts))
118118 declared = Set.fromList tvars
119119
120120 isIllFormed (decl, tvars, tipes) =
121− let unbound = undeclared tvars tipes in
121+ let unbound = undeclared tvars tipes in
122122 if Set.null unbound then Nothing
123123 else Just (decl, Set.toList unbound)
124124