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

return to pure

Browse Source
This commit is contained in:
Lucy Cifferello
2021-01-13 13:33:54 -07:00
parent 1ec210bed1
commit 5f96dea46e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Lib/Types/AppIndex.hs
View File

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