diff --git a/src/Data/UniformPair.hs b/src/Data/UniformPair.hs
--- a/src/Data/UniformPair.hs
+++ b/src/Data/UniformPair.hs
@@ -23,12 +23,17 @@
 import Data.Traversable (Traversable(..))
 import Control.Applicative (Applicative(..)) -- ,liftA2
 
+import Text.ShowF (ShowF(..))
+
 infix 1 :#
 
 -- | Uniform pairs
 data Pair a = a :# a deriving (Show, Functor, Foldable,Traversable)
 
 -- instance Traversable Pair where sequenceA (u :# v) = (:#) <$> u <*> v
+
+instance ShowF Pair where
+  showsPrecF = showsPrec
 
 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.2
+Version:             0.1.3
 Cabal-Version:       >= 1.6
 Synopsis:            Uniform pairs with class instances
 Category:            Data
@@ -21,7 +21,7 @@
 Library
   hs-Source-Dirs:      src
   Extensions:
-  Build-Depends:       base<5
+  Build-Depends:       base<5, ShowF
   Exposed-Modules:     
                        Data.UniformPair
   ghc-options:         -Wall