diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-01-20 16:56:38 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-01-20 16:56:38 +0000 |
| commit | c9ed0c42187502cfa066ae48fb55c9e6a9476428 (patch) | |
| tree | 263259abf1edbddbfaf0741fa632b015b5df4027 /src/GF/Canon | |
| parent | 60d7d169061d98ec3747c111b9322297c63b2646 (diff) | |
more french
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 |