return to pure

This commit is contained in:
Lucy Cifferello
2021-01-13 13:33:54 -07:00
parent 1ec210bed1
commit 5f96dea46e

View File

@@ -82,7 +82,7 @@ instance FromJSON AppManifest where
[] -> fail "No Valid Version Info"
(x : xs) -> pure $ x :| xs
storeAppTimestamp <- config .:? "timestamp"
return (appId, StoreApp { .. })
pure (appId, StoreApp { .. })
return $ AppManifest (HM.fromList apps)
instance ToJSON AppManifest where
toJSON = toJSON . unAppManifest