From af56dae62aa872e3eb74405fdbdd7e9416ea0759 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=81ukasz=20Czajka?= <62751+lukaszcz@users.noreply.github.com> Date: Mon, 16 Dec 2024 16:42:32 +0100 Subject: [PATCH] Update src/Juvix/Compiler/Concrete/Translation/FromParsed/Analysis/Scoping.hs Co-authored-by: Jan Mas Rovira --- .../Concrete/Translation/FromParsed/Analysis/Scoping.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Juvix/Compiler/Concrete/Translation/FromParsed/Analysis/Scoping.hs b/src/Juvix/Compiler/Concrete/Translation/FromParsed/Analysis/Scoping.hs index 75c3f8f144..077216e433 100644 --- a/src/Juvix/Compiler/Concrete/Translation/FromParsed/Analysis/Scoping.hs +++ b/src/Juvix/Compiler/Concrete/Translation/FromParsed/Analysis/Scoping.hs @@ -749,7 +749,7 @@ lookupSymbolAux modules final = do let modules' = drop (length path1) modules pref' = commonPrefix path2 modules' lookPrefix pref' path2 modules' - when (not (null pref)) $ + when (notNull pref) $ lookPrefix pref path2 modules lookupLocalSymbolAux (const True) modules final