diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -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.
diff --git a/data-tree-print.cabal b/data-tree-print.cabal
--- a/data-tree-print.cabal
+++ b/data-tree-print.cabal
@@ -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
diff --git a/src/DataTreePrint.hs b/src/DataTreePrint.hs
--- a/src/DataTreePrint.hs
+++ b/src/DataTreePrint.hs
@@ -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 "]"