This seems to have been added after base 4.8.2.0?

--- a/src/TextShow/Control/Exception.hs
+++ b/src/TextShow/Control/Exception.hs
@@ -210,7 +210,7 @@
 --
 -- /Since: 2/
 showbErrorCall :: ErrorCall -> Builder
-#if MIN_VERSION_base(4,8,2)
+#if MIN_VERSION_base(4,9,0)
 showbErrorCall (ErrorCallWithLocation err "")  = fromString err
 showbErrorCall (ErrorCallWithLocation err loc) =
   fromString err <> singleton '\n' <> fromString loc
--- a/tests/Instances/Control/Exception.hs
+++ b/tests/Instances/Control/Exception.hs
@@ -98,7 +98,7 @@
     arbitrary = RecUpdError <$> arbitrary
 
 instance Arbitrary ErrorCall where
-#if MIN_VERSION_base(4,8,2)
+#if MIN_VERSION_base(4,9,0)
     arbitrary = ErrorCallWithLocation <$> arbitrary <*> arbitrary
 #else
     arbitrary = ErrorCall <$> arbitrary
