diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+### 0.1.3.1
+
+- Show instance print parens around
+
 ### 0.1.3
 
 - Data.RangeSet.Map.member doesn't require Enum
diff --git a/range-set-list.cabal b/range-set-list.cabal
--- a/range-set-list.cabal
+++ b/range-set-list.cabal
@@ -1,6 +1,6 @@
 cabal-version:       >= 1.10
 name:                range-set-list
-version:             0.1.3
+version:             0.1.3.1
 
 synopsis:            Memory efficient sets with ranges of elements.
 category:            Data
@@ -12,7 +12,7 @@
 license-file:        LICENSE
 author:              Oleg Grenrus <oleg.grenrus@iki.fi>
 maintainer:          Oleg Grenrus <oleg.grenrus@iki.fi>
-tested-with:         GHC==7.4.2, GHC==7.6.3, GHC==7.8.4, GHC==7.10.3, GHC==8.0.2, GHC==8.2.2, GHC==8.4.2
+tested-with:         GHC==7.4.2, GHC==7.6.3, GHC==7.8.4, GHC==7.10.3, GHC==8.0.2, GHC==8.2.2, GHC==8.4.4, GHC==8.6.5, GHC==8.8.1
 build-type:          Simple
 
 extra-source-files:
@@ -29,13 +29,13 @@
   other-extensions: DeriveDataTypeable Safe
   ghc-options: -Wall -fwarn-tabs
   build-depends:
-    base        >=4.5      && <4.12,
-    containers  >=0.5.3    && <0.6,
+    base        >=4.5      && <4.14,
+    containers  >=0.5.3    && <0.7,
     deepseq     >=1.3.0.0  && <1.5,
-    hashable    >=1.2.3.3  && <1.3
+    hashable    >=1.2.3.3  && <1.4
   if !impl(ghc >= 8.0)
     build-depends:
-      semigroups  >=0.16.2.2 && <0.19
+      semigroups  >=0.16.2.2 && <0.20
   exposed-modules:
     Data.RangeSet.Internal
     Data.RangeSet.IntMap
@@ -54,8 +54,8 @@
     containers,
     deepseq,
     hashable,
-    containers        >=0.5 && <0.6,
-    tasty             >=0.8 && <1.2,
+    containers,
+    tasty             >=0.8 && <1.3,
     tasty-quickcheck  >=0.8 && <0.11,
     range-set-list
   if !impl(ghc >= 8.0)
diff --git a/src/Data/RangeSet/IntMap.hs b/src/Data/RangeSet/IntMap.hs
--- a/src/Data/RangeSet/IntMap.hs
+++ b/src/Data/RangeSet/IntMap.hs
@@ -89,7 +89,9 @@
   deriving (Eq, Ord, Typeable)
 
 instance Show RIntSet where
-  show x = "fromRangeList " ++ show (toRangeList x)
+  showsPrec d x = showParen (d > 10)
+    $ showString "fromRangeList "
+    . showsPrec 11 (toRangeList x)
 
 instance Semigroup RIntSet where
   (<>) = union
diff --git a/src/Data/RangeSet/List.hs b/src/Data/RangeSet/List.hs
--- a/src/Data/RangeSet/List.hs
+++ b/src/Data/RangeSet/List.hs
@@ -111,7 +111,9 @@
   deriving (Eq, Ord, Typeable)
 
 instance Show a => Show (RSet a) where
-  show (RSet xs) = "fromRangeList " ++ show xs
+  showsPrec d x = showParen (d > 10)
+    $ showString "fromRangeList "
+    . showsPrec 11 (toRangeList x)
 
 instance (Ord a, Enum a) => Semigroup (RSet a) where
     (<>) = union
diff --git a/src/Data/RangeSet/Map.hs b/src/Data/RangeSet/Map.hs
--- a/src/Data/RangeSet/Map.hs
+++ b/src/Data/RangeSet/Map.hs
@@ -108,7 +108,9 @@
   deriving (Eq, Ord, Typeable)
 
 instance Show a => Show (RSet a) where
-  show x = "fromRangeList " ++ show (toRangeList x)
+  showsPrec d x = showParen (d > 10)
+    $ showString "fromRangeList "
+    . showsPrec 11 (toRangeList x)
 
 instance (Ord a, Enum a) => Semigroup (RSet a) where
   (<>) = union