GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-09 11:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

markup

Browse Source
This commit is contained in:
aarne
2004-10-25 14:22:18 +00:00
parent 51fb62890f
commit 24ba5b3b82
15 changed files with 280 additions and 236 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Canon/Unlex.hs
View File

@@ -21,7 +21,7 @@ formatAsText = unwords . format . cap . words where
cap [] = []
major = flip elem (map (:[]) ".!?")
minor = flip elem (map (:[]) ",:;")
para = (=="<p>")
para = (=="&-")
unlex :: [Str] -> String
unlex = formatAsText . performBinds . concat . map sstr . take 1 ----