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