@@ -246,10 +246,12 @@ instance Data UUID where
246 gunfold _ _ = error "gunfold"
246 gunfold _ _ = error "gunfold"
247 dataTypeOf _ = uuidType
247 dataTypeOf _ = uuidType
249−uuidType = mkNorepType "Data.UUID.UUID"
249+uuidType = mkNoRepType "Data.UUID.UUID"
251+#if !(MIN_VERSION_base(4,2,0))
252+mkNoRepType :: String -> DataType
253+mkNoRepType = mkNorepType
254-- |If the passed in 'String' can be parsed as a 'UUID', it will be.
256-- |If the passed in 'String' can be parsed as a 'UUID', it will be.
255-- The hyphens may not be omitted.
257-- The hyphens may not be omitted.