diff --git a/src/Data/UniformPair.hs b/src/Data/UniformPair.hs
--- a/src/Data/UniformPair.hs
+++ b/src/Data/UniformPair.hs
@@ -31,7 +31,7 @@
 import Control.Applicative (Applicative(..)) -- ,liftA2
 import Control.DeepSeq (NFData(..))
 
-import Text.ShowF (ShowF(..))
+import Prelude.Extras (Show1(..))
 
 infix 1 :#
 
@@ -43,8 +43,7 @@
 instance NFData a => NFData (Pair a) where
     rnf (a :# b) = rnf a `seq` rnf b
 
-instance ShowF Pair where
-  showsPrecF = showsPrec
+instance Show1 Pair
 
 fstP :: Pair a -> a
 fstP (a :# _) = a
diff --git a/uniform-pair.cabal b/uniform-pair.cabal
--- a/uniform-pair.cabal
+++ b/uniform-pair.cabal
@@ -1,5 +1,5 @@
 Name:                uniform-pair
-Version:             0.1.11
+Version:             0.1.12
 Cabal-Version:       >= 1.6
 Synopsis:            Uniform pairs with class instances
 Category:            Data
@@ -22,7 +22,7 @@
 Library
   hs-Source-Dirs:      src
   Extensions:
-  Build-Depends:       base<5, ShowF, deepseq
+  Build-Depends:       base<5, prelude-extras < 0.5, deepseq
   Exposed-Modules:     
                        Data.UniformPair
   ghc-options:         -Wall