fix compilation

anoma · Dec 6, 2024 · 4e286e9 · 4e286e9
1 parent a7addf2
commit 4e286e9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Juvix/Compiler/Reg/Language/Instrs.hs b/src/Juvix/Compiler/Reg/Language/Instrs.hs
@@ -49,7 +49,7 @@ instance Eq VarRef where
       && vr1 ^. varRefIndex == vr2 ^. varRefIndex
 
 instance Ord VarRef where
-  compare = compare `on` (vr -> vr ^. varRefGroup, vr ^. varRefIndex)
+  compare = compare `on` \vr -> (vr ^. varRefGroup, vr ^. varRefIndex)
 
 deriving stock instance (Eq ConstrField)