tried to change Jap to Jpn everywhere

2012-06-11 20:08:14 +00:00
parent 2c371f5f33
commit 2951361732
18 changed files with 57 additions and 53 deletions
--- a/lib/doc/MkExxTable.hs
+++ b/lib/doc/MkExxTable.hs
@@ -71,7 +71,7 @@ prApiEx apexx = case M.toList apexx of
                [l ++ ": //" ++ mkEx l e ++ "//" | (l,e) <- lexx]

 mkEx l = unws . bind . mkE . words where 
-  unws = if elem l ["Jap","Tha"] then concat else unwords  -- remove spaces
+  unws = if elem l ["Jpn","Tha"] then concat else unwords  -- remove spaces
  mkE e = case e of
    "atomic":"term":_ -> ["*"]
    "[]":_ -> ["''"]