a bit more refactoring

2021-12-16 10:58:40 +01:00
parent 60c9d46141
commit 8466692584
6 changed files with 19 additions and 27 deletions
--- a/src/compiler/GF/Compile/Rename.hs
+++ b/src/compiler/GF/Compile/Rename.hs
@@ -332,7 +332,7 @@ renameContext :: Status -> Context -> Check Context
 renameContext b = renc [] where
  renc vs cont = case cont of
    (bt,x,t) : xts
-      | isWildIdent x -> do
+      | x == identW -> do
          t'   <- ren vs t
          xts' <- renc vs xts
          return $ (bt,x,t') : xts'