h&~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~(c) Sergey Vinokurov 2018Apache-2.0 (see LICENSE)serg.foo@gmail.com Safe-Inferred"Y6(c) Sergey Vinokurov 2018Apache-2.0 (see LICENSE)serg.foo@gmail.com Safe-Inferred   !"#$%&'   !"#$%&'(c) Sergey Vinokurov 2018Apache-2.0 (see LICENSE)serg.foo@gmail.com Safe-Inferred"5:prettyprinter-combinatorsHelper to make constructing 0* pairs easier by calling pretty on value._prettyprinter-combinators+Pretty-print a CallStack just as GHC would.60123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_623456701:89=;ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_10:0(c) Sergey Vinokurov 2018Apache-2.0 (see LICENSE)serg.foo@gmail.com Safe-Inferred"1vgprettyprinter-combinatorsA class to override  when calling l1 without introducing orphans for standard types.iprettyprinter-combinatorsHelper to use '-based prettyprinting with DerivingVia.:{ ,data TestWithDeriving a b = TestWithDeriving$ { testSet :: Maybe (Set a) , testB :: b$ , testIntMap :: IntMap String , testComplexMap :: Map (Maybe (Set Int)) (IntMap (Set String)) } deriving (Generic)6 deriving Pretty via PPGeneric (TestWithDeriving a b):}lprettyprinter-combinatorsPrettyprint using  instance.:{' test = Test0 { testSet = Just $ Set.fromList [1..3] , testMap = Map.fromList [("foo", Set.fromList [1.5]), ("foo", Set.fromList [2.5, 3, 4])]5 , testIntSet = IntSet.fromList [1, 2, 4, 5, 7] , testIntMap = IntMap.fromList $ zip [1..] ["3", "2foo", "11"] , testInt = 42" , testComplexMap = Map.fromList [ ( Nothing8 , IntMap.fromList $ zip [0..] $ map Set.fromList [ ["foo", "bar"] , ["baz"] , ["quux", "frob"] ] )! , ( Just (Set.fromList [1])8 , IntMap.fromList $ zip [0..] $ map Set.fromList [ ["quux"] , ["fizz", "buzz"] ] )$ , ( Just (Set.fromList [3, 4])8 , IntMap.fromList $ zip [0..] $ map Set.fromList [ ["quux", "5"] , [] , ["fizz", "buzz"] ] ) ] , testComplexMap2 = Map.singleton$ (Just (Set.fromList [1..5])) (Map.fromList [ (NonEmpty.fromList [1, 2], Vector.fromList ["foo", "bar", "baz"]) , (NonEmpty.fromList [3], Vector.fromList ["quux"]) , (NonEmpty.fromList [4..10], Vector.fromList ["must", "put", "something", "in", "here"]) ]) }:}ppGeneric testTest' { testSet -> Just ({1, 2, 3})/ , testMap -> {foo -> {2.5, 3.0, 4.0}}& , testIntSet -> {1, 2, 4, 5, 7}3 , testIntMap -> {1 -> 3, 2 -> 2foo, 3 -> 11} , testInt -> 42 , testComplexMap -> { Nothing -> {0 -> {bar, foo}, 1 -> {baz}, 2 -> {frob, quux}}6 , Just ({1}) -> {0 -> {quux}, 1 -> {buzz, fizz}} , Just ({3, 4}) -> {0 -> {5, quux}, 1 -> {}, 2 -> {buzz, fizz}} } , testComplexMap2 ->! { Just ({1, 2, 3, 4, 5}) ->% { [1, 2] -> [foo, bar, baz] , [3] -> [quux] , [4, 5, 6, 7, 8, 9, 10] -> [must, put, something, in, here] } } }prettyprinter-combinatorsFall back to standard ( instance when no override is available. ghijkl lijkgh(c) Sergey Vinokurov 2018Apache-2.0 (see LICENSE)serg.foo@gmail.com Safe-Inferredprettyprinter-combinatorsPrettyprint using  instance.:{test = Bar ("foo", 10, 20)4 (Map.fromList (zip ["foo", "bar", "baz"] [1..])) (Map.fromList (zip ["foo", "bar", "baz", "quux", "fizz", "buzz", "frob", "wat"] [1..])) (Just (Foo 1 []. 3.14159265358979323846264338327950288 (Just (Foo 1 [2] 2.71828182 (Just (Bar ("x", 1, 2) mempty mempty Nothing (NonEmpty.fromList [42]))))))) (NonEmpty.fromList [1..42]):} ppData test<Bar (foo, 10, 20) {bar -> 2, baz -> 3, foo -> 1} { bar -> 2 , baz -> 3 , buzz -> 6 , fizz -> 5 , foo -> 1 , frob -> 7 , quux -> 4 , wat -> 8 } Just Foo 1 {} 3.141592653589793 Just (Foo 1 [2] 2.71828182 (Just (Bar (x, 1, 2) {} {} Nothing [42]))) [ 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11 , 12 , 13 , 14 , 15 , 16 , 17 , 18 , 19 , 20 , 21 , 22 , 23 , 24 , 25 , 26 , 27 , 28 , 29 , 30 , 31 , 32 , 33 , 34 , 35 , 36 , 37 , 38 , 39 , 40 , 41 , 42 ]prettyprinter-combinatorsPrettyprint using .prettyprinter-combinators Try to treat a- as a list and prettyprint its elements with f). Returns Just on succes and Nothing if a wasn't a list after all.(c) Sergey Vinokurov 2018Apache-2.0 (see LICENSE)serg.foo@gmail.com Safe-Inferred"prettyprinter-combinatorsHelper to use '-based prettyprinting with DerivingVia.:{ ,data TestWithDeriving a b = TestWithDeriving$ { testSet :: Maybe (Set a) , testB :: b$ , testIntMap :: IntMap String , testComplexMap :: Map (Maybe (Set Int)) (IntMap (Set String)) } deriving (Show)3 deriving Pretty via PPShow (TestWithDeriving a b):}        !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuuvwxyz{|}~6prettyprinter-combinators-0.1.2-CKGccsKf8KFICH9GYI6xOIPrettyprinter.DataPrettyprinter.GenericsPrettyprinter.CombinatorsPrettyprinter.MetaDocPrettyprinter.ShowPrettyprinter.Combinators.BasicDatabase Data.Data GHC.GenericsGeneric*prettyprinter-1.7.1-Fnq1Vt2JMTY81kvR0W9kdPPrettyprinter.InternalviaShowDoc prettyListprettyPretty##MetaDoc mdPayloadmdKindDocKindAtomic CompositecompositeMetaDoc atomicMetaDoc metaDocInt metaDocFloat metaDocDoublemetaDocIntegermetaDocNatural metaDocWord metaDocWord8 metaDocWord16 metaDocWord32 metaDocWord64 metaDocInt8 metaDocInt16 metaDocInt32 metaDocInt64 metaDocUnit metaDocBool metaDocChar stringMetaDocstrictTextMetaDoclazyTextMetaDocstrictByteStringMetaDoclazyByteStringMetaDocshortByteStringMetaDocconstructorAppMetaDoc$fMonoidDocKind$fSemigroupDocKind$fMonoidMetaDoc$fSemigroupMetaDoc $fEqDocKind $fOrdDocKind $fEnumDocKind$fBoundedDocKindMapEntry:->putDocLnrender renderLazy renderString docFromString docFromTextppMapEntryWithppMapEntryWithSep--> ppDictHeaderppDictAssocListppList ppListWithppTuple ppTupleWithppFoldableHeaderppFoldableHeaderWithppNEppNEWithppMap ppMapWithppSet ppSetWithppBimap ppBimapWithppIntSet ppIntSetWithppIntMap ppIntMapWith ppHashSet ppHashSetWith ppHashMap ppHashMapWithppVector ppVectorWithppDList ppDListWithppListWithDelim ppAssocListppAssocListWithppAssocListWithSep ppByteStringppByteStringLazyppShortByteString ppCallStackppCallStackGHC$fPrettyMapEntry $fEqMapEntry $fOrdMapEntry$fShowMapEntry$fFunctorMapEntry$fFoldableMapEntry$fTraversableMapEntryPPGenericOverrideppGenericOverride PPGeneric unPPGeneric ppGeneric $fGPrettyM1 $fGPrettyM10 $fGPretty:*: $fGPretty:+: $fGPrettyU1 $fGPrettyV1$fPrettyPPGeneric$fPPGenericOverrideCompose$fPPGenericOverrideHashMap$fPPGenericOverrideHashSet$fPPGenericOverrideIntMap$fPPGenericOverrideIntSet$fPPGenericOverrideBimap$fPPGenericOverrideSet$fPPGenericOverrideMap$fPPGenericOverrideVector$fPPGenericOverrideNonEmpty$fPPGenericOverride[]$fPPGenericOverride[]0$fPPGenericOverrideSpecificity$fPPGenericOverrideInfo$fPPGenericOverrideDec$fPPGenericOverridePatSynDir$fPPGenericOverridePatSynArgs$fPPGenericOverrideRole!$fPPGenericOverrideTypeFamilyHead!$fPPGenericOverrideInjectivityAnn"$fPPGenericOverrideFamilyResultSig$fPPGenericOverrideTySynEqn$fPPGenericOverridePragma$fPPGenericOverrideAnnTarget$fPPGenericOverrideRuleBndr$fPPGenericOverridePhases$fPPGenericOverrideRuleMatch$fPPGenericOverrideInline$fPPGenericOverrideFixity"$fPPGenericOverrideFixityDirection$fPPGenericOverrideForeign$fPPGenericOverrideSafety$fPPGenericOverrideCallconv$fPPGenericOverrideOverlap$fPPGenericOverrideFunDep$fPPGenericOverrideDerivClause $fPPGenericOverrideDerivStrategy$fPPGenericOverrideClause$fPPGenericOverridePat$fPPGenericOverrideExp$fPPGenericOverrideRange$fPPGenericOverrideMatch$fPPGenericOverrideBody$fPPGenericOverrideGuard$fPPGenericOverrideStmt$fPPGenericOverrideBytes$fPPGenericOverrideLit$fPPGenericOverrideCon$fPPGenericOverrideBang#$fPPGenericOverrideSourceStrictness%$fPPGenericOverrideSourceUnpackedness$fPPGenericOverrideType$fPPGenericOverrideTyLit$fPPGenericOverrideName$fPPGenericOverrideModName$fPPGenericOverrideNameSpace$fPPGenericOverridePkgName$fPPGenericOverrideNameFlavour$fPPGenericOverrideOccName$fPPGenericOverrideTyVarBndr$fPPGenericOverrideForeignPtr"$fPPGenericOverrideShortByteString$fPPGenericOverrideByteString$fPPGenericOverrideByteString0$fPPGenericOverrideText$fPPGenericOverrideText0$fPPGenericOverride[]1$fPPGenericOverrideDoc$fPPGenericOverrideCallStack$fPPGenericOverrideRatio$fPPGenericOverrideChar$fPPGenericOverrideBool$fPPGenericOverride()$fPPGenericOverrideInt64$fPPGenericOverrideInt32$fPPGenericOverrideInt16$fPPGenericOverrideInt8$fPPGenericOverrideWord64$fPPGenericOverrideWord32$fPPGenericOverrideWord16$fPPGenericOverrideWord8$fPPGenericOverrideWord$fPPGenericOverrideNatural$fPPGenericOverrideInteger$fPPGenericOverrideDouble$fPPGenericOverrideFloat$fPPGenericOverrideInt$fPPGenericOverridea $fGPrettyK1$fPPGenericOverrideMaybe$fPPGenericOverride(,,)$fPPGenericOverride(,)!$fPrettyPPGenericOverrideToPretty $fGFieldsk:*:$fGFieldsTYPEM1 $fGFieldskU1 $fGPrettyM11$fGCollectRecordkU1$fGCollectRecordk:*:$fGCollectRecordTYPEM1 $fGPrettyM12ppData ppDataSimplePPShowunPPShowppShow$fPrettyPPShowppListWithDelimSep"syb-0.7.2.4-8UwAVuB8SsIHuyoD5S7L5CData.Generics.Textgshow listElementsGHC.ShowShow