diff --git a/Debug/Show.hs b/Debug/Show.hs
--- a/Debug/Show.hs
+++ b/Debug/Show.hs
@@ -1,7 +1,7 @@
 -- | A wrapper type and associated Show instances that generate
 -- correct haskell code, especially for exception types.
 
-{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE CPP, FlexibleInstances #-}
 
 module Debug.Show (V(V)) where
 
@@ -13,6 +13,8 @@
 import GHC.IO.Exception
 import GHC.IO.Handle
 import GHC.Show
+import Language.Haskell.TH.Instances ()
+import Language.Haskell.TH.Syntax
 import Text.Parsec.Error
 import Text.Parsec.Pos
 
@@ -110,3 +112,12 @@
 
 instance Show (V UTCTime) where
     show (V t) = "(read " ++ show (show t) ++ " :: UTCTime)"
+
+instance Show (V Name) where
+    show (V (Name o f)) = "Name (" ++ show o ++ ") (" ++ show (V f) ++ ")"
+instance Show (V NameFlavour) where
+    show (V NameS) = "NameS"
+    show (V (NameQ m)) = "NameQ " ++ show m
+    show (V (NameU n)) = "NameU " ++ show n
+    show (V (NameL n)) = "NameL " ++ show n
+    show (V (NameG s p m)) = "NameG (" ++ show (s) ++ ") (" ++ show (p) ++ ") (" ++ show (m) ++ ")"
diff --git a/show-please.cabal b/show-please.cabal
--- a/show-please.cabal
+++ b/show-please.cabal
@@ -1,5 +1,5 @@
 Name:           show-please
-Version:        0.4.2
+Version:        0.5.1
 License:        BSD3
 Author:         David Fox <dsf@seereason.com>
 Category:       debug
@@ -14,6 +14,6 @@
 
 Library
  Build-Depends:
-  base >= 4 && < 5, mtl, parsec, template-haskell, time >= 1.5
+  base >= 4 && < 5, mtl, parsec, template-haskell, th-orphans, time >= 1.5
  Exposed-Modules:
   Debug.Show