packages feed

data-tree-print 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+11/−7 lines, 3 filesdep ~basePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

ChangeLog.md view
@@ -1,5 +1,9 @@ # Revision history for data-tree-print +## 0.1.0.1  -- April 2018++* Fixups for ghc-8.4+ ## 0.1.0.0  -- May 2017  * First version. Released on an unsuspecting world.
data-tree-print.cabal view
@@ -1,10 +1,10 @@ name:                data-tree-print-version:             0.1.0.0+version:             0.1.0.1 synopsis:            Print Data instances as a nested tree license:             BSD3 license-file:        LICENSE author:              Lennart Spitzner-maintainer:          lsp@informatik.uni-kiel.de+maintainer:          Lennart Spitzner <hexagoxel@hexagoxel.de> copyright:           Copyright (C) 2016 Lennart Spitzner Homepage:            https://github.com/lspitzner/data-tree-print Bug-reports:         https://github.com/lspitzner/data-tree-print/issues@@ -36,9 +36,9 @@ library   exposed-modules:     DataTreePrint   build-depends:-    { base >=4.3 && <4.10+    { base >=4.3 && <4.12     , pretty >=1.1 && <1.2-    , syb >=0.6 && <0.7+    , syb >=0.6 && <0.8     }   hs-source-dirs:      src   default-language:    Haskell2010
src/DataTreePrint.hs view
@@ -19,7 +19,7 @@   import           Data.Data-import           Text.PrettyPrint+import           Text.PrettyPrint as PP  import           Data.Generics.Aliases import           Data.Function (fix)@@ -146,8 +146,8 @@              + sum (_lay_llength <$> subs)         func (Right i)           | llen<=i = text "["-                   <> hcat (punctuate (text ",") [_lay_func s (Left False) | s <- subs])-                   <> text "]"+                   PP.<> hcat (punctuate (text ",") [_lay_func s (Left False) | s <- subs])+                   PP.<> text "]"           | otherwise = text "[" $$ nest 2 (_lay_func s1 (Right $ i-2))                      $$ vcat [text "," $$ nest 2 (_lay_func s (Right $ i-2)) | s <- sr]                      $$ text "]"