German phrasebook; ontology document; ignoring single lines in gfdoc

2026-04-24 03:52:50 -06:00 · 2010-04-08 20:31:32 +00:00
parent 6aa9363b53
commit a459f0a449
16 changed files with 549 additions and 228 deletions
--- a/examples/phrasebook/Clone.hs
+++ b/examples/phrasebook/Clone.hs
@@ -36,7 +36,7 @@ isSpecific = flip elem specifics
 replaceLang s1 s2 = repl where
  repl s = case s of
    c:cs -> case splitAt lgs s of
-      (pre,c:rest) | pre == s1 && elem c " ,:=(){}.-[]" -> s2 ++ [c] ++ repl rest
+      (pre,c:rest) | pre == s1 && elem c " \n\t,:=(){}.-[];" -> s2 ++ [c] ++ repl rest
      _                      -> c : repl cs
    _ -> s
  lgs = 3 -- length s1