msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

utf8 in editor

Browse Source
This commit is contained in:
aarne
2006-04-19 09:33:39 +00:00
parent ccd5189766
commit 0ab646fa2f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Shell/CommandL.hs
View File

@@ -76,12 +76,12 @@ getCommand = do
s <- getLine
return $ pCommand s
-- | decodes UTF8 if u==False, i.e. if the grammar does not use UTF8;
-- | decodes UTF8 if u==True, i.e. if the grammar uses UTF8;
-- used in the Java GUI, which always uses UTF8
getCommandUTF :: Bool -> IO [(String,Command)]
getCommandUTF u = do
s <- getLine
return $ pCommandMsgs $ if u then s else decodeUTF8 s
return $ pCommandMsgs $ if u then decodeUTF8 s else s
pCommandMsgs :: String -> [(String,Command)]
pCommandMsgs = map (pCommandMsg . unwords) . concatMap (chunks ";;" . words) . lines