git.iko.soy/typeable/aeson
on master help sign in
Add another useful SCC annotation
4100863Bryan O'Sullivan
Data/Aeson/Encode.hs+2−1
compare with master
unifiedsplit
@@ -55,7 +55,8 @@ fromValue (Object m) = {-# SCC "fromValue/Object" #-}
55 one (k,v) = string k `mappend` Char8.fromChar ':' `mappend` fromValue v
55 one (k,v) = string k `mappend` Char8.fromChar ':' `mappend` fromValue v
56
56
57string :: T.Text -> Builder
57string :: T.Text -> Builder
58+string s = {-# SCC "string" #-}
58−string s = Char8.fromChar '"' `mappend` (quote s) `mappend` Char8.fromChar '"'
59+ Char8.fromChar '"' `mappend` quote s `mappend` Char8.fromChar '"'
59 where
60 where
60 quote q = case T.uncons t of
61 quote q = case T.uncons t of
61 Just (c,t') -> fromText h `mappend` escape c `mappend` quote t'
62 Just (c,t') -> fromText h `mappend` escape c `mappend` quote t'