Removing indentation from JSON instances for speed
commitacd0585c2cb60e18529b738186588f0a6eb20399
authorBrendan Hay <brendan.g.hay@gmail.com>
dateSun 27 Sep 2015, 09:35 (11 years ago)
parent2adb278
gen/src/Gen/AST.hs+1−1
@@ -74,7 +74,7 @@ render svc = do
7474 <$> (objDecl k p ts >>= pp Indent)
7575 <*> ctor p ts
7676 <*> traverse (lens p) (Map.toList ts)
77− <*> traverse (pp Indent) (jsonDecls k p ts)
77+ <*> traverse (pp Print) (jsonDecls k p ts)
7878
7979 ctor p ts = Fun' (cname k) (Just help)
8080 <$> (pp None (ctorSig k ts) <&> comments ts)
gen/src/Gen/Syntax.hs+1−2
@@ -1,8 +1,7 @@
11{-# LANGUAGE LambdaCase #-}
22{-# LANGUAGE OverloadedStrings #-}
33{-# LANGUAGE TupleSections #-}
4−
5−{-# OPTIONS_GHC -fno-warn-orphans #-}
4+{-# LANGUAGE ViewPatterns #-}
65
76-- Module : Gen.Syntax
87-- Copyright : (c) 2015 Brendan Hay