Anothet non-newtype class

augustss · Feb 4, 2025 · 0d7e940 · 0d7e940
1 parent 82c7219
commit 0d7e940
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/MicroHs/Deriving.hs b/src/MicroHs/Deriving.hs
@@ -30,7 +30,7 @@ deriveStrat mctx newt lhs cs strat cls =
     _                             -> cannotDerive lhs cls
   where useNewt d = unIdent (getAppCon d) `notElem`
           ["Data.Data.Data", "Data.Typeable.Typeable", "GHC.Generics.Generic",
-           "Text.Read.Internal.Read", "Text.Show.Show"]
+           "Language.Haskell.TH.Syntax.Lift", "Text.Read.Internal.Read", "Text.Show.Show"]
 
 type DeriverT = LHS -> [Constr] -> EConstraint -> T [EDef]   -- Bool indicates a newtype
 type Deriver = Maybe EConstraint -> DeriverT