From c04adb3239eaff728f73faa62a93e54c8b0396e9 Mon Sep 17 00:00:00 2001
From: Artyom <yom@artyom.me>
Date: Tue, 31 Jan 2017 03:10:09 +0300
Subject: [PATCH] Fix a silly bug with SafeCopy

---
 src/Guide/Utils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Guide/Utils.hs b/src/Guide/Utils.hs
index 8a75120..a79b1dc 100644
--- a/src/Guide/Utils.hs
+++ b/src/Guide/Utils.hs
@@ -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