diff options
Diffstat (limited to 'src/GF/Canon')
| -rw-r--r-- | src/GF/Canon/CMacros.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Canon/CMacros.hs b/src/GF/Canon/CMacros.hs index bb80fb0fa..a61430512 100644 --- a/src/GF/Canon/CMacros.hs +++ b/src/GF/Canon/CMacros.hs @@ -151,7 +151,7 @@ matchPatt cs0 (FV ts) = liftM FV $ mapM (matchPatt cs0) ts matchPatt cs0 trm = term2patt trm >>= match cs0 where match cs t = case cs of - Cas ps b :_ | elem t ps -> return b + Cas ps b :_ | elem t ps -> return b _:cs' -> match cs' t [] -> Bad $ "pattern not found for" +++ prt t +++ "among" ++++ unlines (map prt cs0) ---- debug |