GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-28 14:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

gfse: some refactoring

Browse Source
This commit is contained in:
hallgren
2012-10-03 13:22:50 +00:00
parent 432a354b91
commit edc51c6a2f
4 changed files with 38 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/compiler/SimpleEditor/Convert.hs
View File

@@ -24,14 +24,13 @@ import SimpleEditor.JSON
parseModule (path,source) =
prop path $
(path.=) $
case runP pModDef (BS.pack source) of
Left (Pn l c,msg) ->
makeObj [prop "error" msg,
prop "location" (show l++":"++show c)]
makeObj ["error".=msg, "location".= show l++":"++show c]
Right mod -> case convModule mod of
Ok g -> makeObj [prop "converted" g]
Bad msg -> makeObj [prop "parsed" msg]
Ok g -> makeObj ["converted".=g]
Bad msg -> makeObj ["parsed".=msg]
{-
convAbstractFile path =