@@ -269,9 +269,11 @@ instance Show UUID where
269 show = toString
269 show = toString
271instance Read UUID where
271instance Read UUID where
273+ let noSpaces = dropWhile isSpace str
272− readsPrec _ str = case fromString (take 36 str) of
274+ in case fromString (take 36 noSpaces) of
273− Nothing -> []
275+ Nothing -> []
274− Just u -> [(u,drop 36 str)]
276+ Just u -> [(u,drop 36 noSpaces)]
277instance Storable UUID where
279instance Storable UUID where