From 94689d97ae9cb348834451f3721700af78a1de5c Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Tue, 1 Aug 2023 14:39:11 -0400
Subject: [PATCH] another deserialization fix

---
 src/Lib/Types/Manifest.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Lib/Types/Manifest.hs b/src/Lib/Types/Manifest.hs
index 195e1ca..f14a3f3 100644
--- a/src/Lib/Types/Manifest.hs
+++ b/src/Lib/Types/Manifest.hs
@@ -107,10 +107,11 @@ instance ToJSON PackageDevice where
         toKeyValue (key, value) = fromText key .= toJSON value
 instance FromJSON PackageDevice where
     parseJSON = withObject "PackageDevice" $ \obj -> do
-        hashMap <- parseJSON (Object obj)
+        hashMap <- obj .: ""
         pure $ PackageDevice hashMap
 
 instance PersistField PackageDevice where
+    toPersistValue :: PackageDevice -> PersistValue
     toPersistValue = PersistText . T.pack . show . toJSON
     fromPersistValue (PersistText t) = case eitherDecodeStrict (TE.encodeUtf8 t) of
         Left err -> Left $ T.pack err