Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-04-04 21:59:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

another deserialization fix

Browse Source
This commit is contained in:
Lucy Cifferello
2023-08-01 14:39:11 -04:00
parent 9b79df47a0
commit 94689d97ae
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Lib/Types/Manifest.hs
View File

@@ -107,10 +107,11 @@ instance ToJSON PackageDevice where
toKeyValue (key, value) = fromText key .= toJSON value toKeyValue (key, value) = fromText key .= toJSON value
instance FromJSON PackageDevice where instance FromJSON PackageDevice where
parseJSON = withObject "PackageDevice" $ \obj -> do parseJSON = withObject "PackageDevice" $ \obj -> do
hashMap <- parseJSON (Object obj) hashMap <- obj .: ""
pure $ PackageDevice hashMap pure $ PackageDevice hashMap
instance PersistField PackageDevice where instance PersistField PackageDevice where
toPersistValue :: PackageDevice -> PersistValue
toPersistValue = PersistText . T.pack . show . toJSON toPersistValue = PersistText . T.pack . show . toJSON
fromPersistValue (PersistText t) = case eitherDecodeStrict (TE.encodeUtf8 t) of fromPersistValue (PersistText t) = case eitherDecodeStrict (TE.encodeUtf8 t) of
Left err -> Left $ T.pack err Left err -> Left $ T.pack err