diff --git a/src/Juvix/Compiler/Concrete/Language.hs b/src/Juvix/Compiler/Concrete/Language.hs index e605de9882..d17d4d9677 100644 --- a/src/Juvix/Compiler/Concrete/Language.hs +++ b/src/Juvix/Compiler/Concrete/Language.hs @@ -1689,8 +1689,9 @@ instance HasLoc (SigArg s) where Irrelevant (l, r) = _sigArgDelims instance SingI s => HasLoc (NewFunctionClause s) where - getLoc NewFunctionClause {..} = getLoc _clausenPipeKw - <> getLocExpressionType _clausenBody + getLoc NewFunctionClause {..} = + getLoc _clausenPipeKw + <> getLocExpressionType _clausenBody instance SingI s => HasLoc (NewTypeSignatureBody s) where getLoc = \case diff --git a/test/Scope/Positive.hs b/test/Scope/Positive.hs index 4385e99a67..aa35868d2f 100644 --- a/test/Scope/Positive.hs +++ b/test/Scope/Positive.hs @@ -242,7 +242,7 @@ tests = PosTest "New function syntax" $(mkRelDir ".") - $(mkRelFile "Syntax.juvix") + $(mkRelFile "Syntax.juvix"), PosTest "Format pragma" $(mkRelDir ".")