--- /dev/null
+diff --git a/src/DeriveShow.hs b/src/DeriveShow.hs
+index c11dd03..40cc205 100644
+--- a/src/DeriveShow.hs
++++ b/src/DeriveShow.hs
+@@ -1,5 +1,5 @@
+ {-# LANGUAGE TemplateHaskell #-}
++{-# LANGUAGE StandaloneDeriving #-}
+ module DeriveShow where
+
+-import Data.Derive.Show
+ import Data.DeriveTH
+@@ -12,3 +12,2 @@ isArbInsName = isinsName ''Show
+ devShow :: Name -> Q [Dec]
+-devShow = megaderive (derive makeShow) isArbInsName
+-
++devShow = megaderive (\n -> [d| deriving instance Show $(return (ConT n)) |]) isArbInsName
+--- a/QuickFuzz.cabal
++++ b/QuickFuzz.cabal
+@@ -75,0 +75,1 @@ executable QuickFuzz
++ default-extensions: StandaloneDeriving
+