f13ac82 · gogol · git.iko.soy

23import Control.Lens hiding (enum, lens)

24import qualified Data.ByteString.Char8 as C8

25import qualified Data.ByteString.Lazy.Builder as LBB

26−import qualified Data.ByteString.Lazy.Char8 as LBS

27import Data.Char (isSpace)

26import Data.Char (isSpace)

28import qualified Data.HashMap.Strict as Map

27import qualified Data.HashMap.Strict as Map

29import Data.Maybe

28import Data.Maybe

30import Data.Semigroup ((<>))

29import Data.Semigroup ((<>))

31import Data.String

30import Data.String

32import qualified Data.Text.Lazy as LText

31import qualified Data.Text.Lazy as LText

32+import qualified Data.Text.Lazy.Encoding as LText

33import Gen.AST.Solve (getSolved)

34import Gen.Formatting

35import Gen.Syntax

36import Gen.Types

37−import HIndent

37+import qualified HIndent

38−import HIndent.Types

38+import qualified HIndent.Types as HIndent

39import Language.Haskell.Exts.Build (name)

40import Language.Haskell.Exts.Pretty as PP

41import Prelude hiding (sum)

172

173pp :: (Pretty a, Show a) => PP -> a -> AST Rendered

174pp i x

175− | i == Indent = result (reformat hindentConfig Nothing Nothing p)

175+ | i == Indent = result (HIndent.reformat HIndent.defaultConfig Nothing Nothing p)

176 | otherwise = pure (LText.pack (C8.unpack p))

177 where

178− result = hoistEither . bimap (e . LText.pack) (LText.pack . LBS.unpack . LBB.toLazyByteString)

178+ result = hoistEither . bimap (e . LText.pack) (LText.decodeUtf8 . LBB.toLazyByteString)

179

180 e = flip mappend ("\nSyntax:\n" <> LText.pack (C8.unpack p) <> "\nAST:\n" <> LText.pack (show x))

181

183 . C8.pack

184 $ prettyPrintStyleMode s m x

185

186− hindentConfig = defaultConfig

187− { configTrailingNewline = False

188− , configSortImports = False

189− }

190−

191 s = style

186 s = style

192 { mode = PageMode

187 { mode = PageMode

193 , lineLength = 80

188 , lineLength = 80