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