bugfix to the previous patches

2026-04-09 04:59:31 -06:00 · 2009-05-22 21:30:34 +00:00
parent e5399f2d0e
commit 3763b98e89
1 changed files with 0 additions and 1 deletions
--- a/src/GF/Compile/Rename.hs
+++ b/src/GF/Compile/Rename.hs
@@ -259,7 +259,6 @@ renamePattern env patt = case patt of

  PV x -> do case renid (Vr x) of
               Ok (QC m c) -> return (PP m c [],[])
-               Ok (Q  m c) -> Bad $ render (text "data constructor expected but" <+> ppTerm Qualified 0 (Q  m c) <+> text "is found instead")
               _           -> return (patt, [x])

  PR r -> do