@@ -160,7 +160,7 @@ instance Description ExhaustivenessName IsoXmlDescEnum where
160 exhaustivenessName =:= (IsoXmlDescEnum genType descEnumCons) =
160 exhaustivenessName =:= (IsoXmlDescEnum genType descEnumCons) =
161 isoXmlGenerateEnum genType exhaustivenessName (reverse descEnumCons)
161 isoXmlGenerateEnum genType exhaustivenessName (reverse descEnumCons)
163−instance IsString (TH.TypeQ -> IsoXmlDescPreField) where
163+instance (m ~ Q) => IsString (m TH.Type -> IsoXmlDescPreField) where
164 fromString = IsoXmlDescPreField
164 fromString = IsoXmlDescPreField
166instance IsString IsoXmlDescPreField where
166instance IsString IsoXmlDescPreField where
@@ -168,10 +168,10 @@ instance IsString IsoXmlDescPreField where
169 ty = (TH.conT . TH.mkName) ("Xml" ++ over _head C.toUpper (xmlLocalName name))
169 ty = (TH.conT . TH.mkName) ("Xml" ++ over _head C.toUpper (xmlLocalName name))
171−instance IsString (TH.TypeQ -> IsoXmlDescPreAttribute) where
171+instance (m ~ Q) => IsString (m TH.Type -> IsoXmlDescPreAttribute) where
172 fromString = IsoXmlDescPreAttribute
172 fromString = IsoXmlDescPreAttribute
174−instance IsString (TH.TypeQ -> IsoXmlDescPreContent) where
174+instance (m ~ Q) => IsString (m Type -> IsoXmlDescPreContent) where
175 fromString = IsoXmlDescPreContent
175 fromString = IsoXmlDescPreContent
177instance IsString IsoXmlDescPreAttribute where
177instance IsString IsoXmlDescPreAttribute where