github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Extract the line fields into a function.

Browse Source
This commit is contained in:
Rob Rix 2016-03-02 07:53:26 -05:00
parent e7d6c122f7
commit 8bc5ef427a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Renderer/JSON.hs
View File

@ -36,8 +36,8 @@ json diff sources = toLazyByteString . fromEncoding . pairs $
newtype NumberedLine a = NumberedLine (Int, Line a)
instance ToJSON a => ToJSON (NumberedLine a) where
toJSON (NumberedLine (n, a)) = object [ "number" .= n, "terms" .= unLine a ]
toEncoding (NumberedLine (n, a)) = pairs ("number" .= n <> "terms" .= unLine a)
toJSON (NumberedLine (n, a)) = object (lineFields n a)
toEncoding (NumberedLine (n, a)) = pairs $ mconcat (lineFields n a)
instance ToJSON Category where
toJSON (Other s) = String $ T.pack s
toJSON s = String . T.pack $ show s
@ -59,6 +59,9 @@ instance ToJSON (Term leaf Info) where
toJSON (info :< syntax) = object (termFields info syntax)
toEncoding (info :< syntax) = pairs $ mconcat (termFields info syntax)
lineFields :: (ToJSON a, KeyValue kv) => Int -> Line a -> [kv]
lineFields n line = [ "number" .= n, "terms" .= unLine line ]
termFields :: (ToJSON recur, KeyValue kv) => Info -> Syntax leaf recur -> [kv]
termFields (Info range categories) syntax = "range" .= range : "categories" .= categories : case syntax of
Leaf _ -> []