rnhmjoj/rosa
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix wrong newline

Browse Source
This commit is contained in:
rnhmjoj 2015-04-11 20:28:37 +02:00
parent 8811c7a217
commit 2ef3e66b48
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Json.hs
View File

@ -24,12 +24,13 @@ repr obj = repr' obj 0 where
repr' val lev =
case val of
Array x -> intercalate ", " $ mapl (\i -> repr' i lev) x
Object x -> drop 1 $ concat $ map (dump x lev) $ H.keys x
Object x -> newline lev $ concat $ map (dump x lev) $ H.keys x
String x -> unpack x
Number x -> show x
Bool x -> show x
Null -> "null"
mapl f v = V.toList $ V.map f v
mapl f v = V.toList (V.map f v)
newline n = if n == 1 then id else drop 1
indent l = '\n' : (concat . replicate l) " "
dump o l k = concat [indent l, unpack k, ": ", repr' (o |. k) (l+1)]