blob: 6e0f25636b6ad8515b3f8d36237c979cb6f78df1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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
|
GitWeb
