more french

2026-05-20 08:32:50 -06:00 · 2006-01-20 16:56:38 +00:00
parent 60d7d16906
commit c9ed0c4218
2 changed files with 5 additions and 5 deletions
--- 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