1
1
mirror of https://github.com/aelve/guide.git synced 2024-12-23 04:42:24 +03:00

Fix a silly bug with SafeCopy

This commit is contained in:
Artyom 2017-01-31 03:10:09 +03:00
parent e001e2823e
commit c04adb3239
No known key found for this signature in database
GPG Key ID: B8E35A33FF522710

View File

@ -190,7 +190,7 @@ newtype Uid a = Uid {uidToText :: Text}
-- • In the instance declaration for SafeCopy (Uid a)
instance SafeCopy (Uid a) where
putCopy = contain . safePut . uidToText
getCopy = contain safeGet
getCopy = contain (Uid <$> safeGet)
version = 2
kind = base