diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,10 @@
 # Revision history for data-tree-print
 
+## 0.1.0.2  -- October 2018
+
+* Support ghc-8.6, but drop support for ghc<7.10
+* Fix default formatter for strings
+
 ## 0.1.0.1  -- April 2018
 
 * Fixups for ghc-8.4
diff --git a/data-tree-print.cabal b/data-tree-print.cabal
--- a/data-tree-print.cabal
+++ b/data-tree-print.cabal
@@ -1,5 +1,5 @@
 name:                data-tree-print
-version:             0.1.0.1
+version:             0.1.0.2
 synopsis:            Print Data instances as a nested tree
 license:             BSD3
 license-file:        LICENSE
@@ -36,7 +36,7 @@
 library
   exposed-modules:     DataTreePrint
   build-depends:
-    { base >=4.3 && <4.12
+    { base >=4.8 && <4.13
     , pretty >=1.1 && <1.2
     , syb >=0.6 && <0.8
     }
@@ -46,4 +46,9 @@
     -Wall
     -fno-warn-orphans
     -fno-warn-unused-imports
+  }
+  if impl(ghc >= 8.0) {
+    ghc-options: {
+      -Wcompat
+    }
   }
diff --git a/src/DataTreePrint.hs b/src/DataTreePrint.hs
--- a/src/DataTreePrint.hs
+++ b/src/DataTreePrint.hs
@@ -91,8 +91,8 @@
 type LayouterF = DataToLayouter -> DataToLayouter
 
 defaultToDocF :: ToDocF
-defaultToDocF (DataToDoc lf) = DataToDoc $ genLayouter `extQ` string
-                                                       `ext1Q` listLayouter
+defaultToDocF (DataToDoc lf) = DataToDoc $ genLayouter `ext1Q` listLayouter
+                                                       `extQ` string
   where
     genLayouter n =
       let cStr = showConstr $ toConstr n