Skip to content

Commit

Permalink
make ormolu happy
Browse files Browse the repository at this point in the history
  • Loading branch information
lukaszcz committed Sep 1, 2022
1 parent 46fea7a commit d197536
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Juvix/Compiler/Core/Extra/Equality.hs
Expand Up @@ -11,6 +11,6 @@ structEq (NCtr (Constr _ tag1 args1)) (NCtr (Constr _ tag2 args2)) =
where
argsEq :: [Node] -> [Node] -> Bool
argsEq [] [] = True
argsEq (x:xs) (y:ys) | structEq x y = argsEq xs ys
argsEq (x : xs) (y : ys) | structEq x y = argsEq xs ys
argsEq _ _ = False
structEq x y = x == y

0 comments on commit d197536

Please sign in to comment.