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

Whitespace fixes

Browse Source
This commit is contained in:
John J. Camilleri
2019-07-07 17:38:07 +02:00
parent cb88b56016
commit a4b1fb03aa
2 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/compiler/GF/Compile/PGFtoJSON.hs
View File

@@ -97,7 +97,7 @@ ffun2json (CncFun f lins) =
JSON.makeObj JSON.makeObj
[ ("name", mkJSStr $ showCId f) [ ("name", mkJSStr $ showCId f)
, ("lins", JSArray (map mkJSInt (Array.elems lins))) , ("lins", JSArray (map mkJSInt (Array.elems lins)))
] ]
seq2json :: Array.Array DotPos Symbol -> JSValue seq2json :: Array.Array DotPos Symbol -> JSValue
seq2json seq = JSArray [sym2json s | s <- Array.elems seq] seq2json seq = JSArray [sym2json s | s <- Array.elems seq]
@@ -119,7 +119,7 @@ alt2json :: ([Symbol],[String]) -> JSValue
alt2json (ps,ts) = new "Alt" [JSArray (map sym2json ps), JSArray (map mkJSStr ts)] alt2json (ps,ts) = new "Alt" [JSArray (map sym2json ps), JSArray (map mkJSStr ts)]
new :: String -> [JSValue] -> JSValue new :: String -> [JSValue] -> JSValue
new f xs = new f xs =
JSON.makeObj JSON.makeObj
[ ("type", mkJSStr f) [ ("type", mkJSStr f)
, ("args", JSArray xs) , ("args", JSArray xs)
@@ -132,4 +132,3 @@ mkJSStr = JSString . JSON.toJSString
-- | Make JSON value from integer -- | Make JSON value from integer
mkJSInt :: Integral a => a -> JSValue mkJSInt :: Integral a => a -> JSValue
mkJSInt = JSRational False . toRational mkJSInt = JSRational False . toRational

2
src/compiler/GF/Compile/pgf.schema.json
View File

@@ -229,4 +229,4 @@
} }
} }
} }
} }