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

fix release note json serialization

Browse Source
This commit is contained in:
Lucy Cifferello
2022-07-01 14:25:45 -06:00
parent 04f7f7bbf6
commit 18b951388b
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Handler/Package/V0/ReleaseNotes.hs
View File

@@ -2,7 +2,7 @@
module Handler.Package.V0.ReleaseNotes where
import Data.Aeson (ToJSON (..))
import Data.Aeson (ToJSON (..), object, KeyValue((.=)))
import Data.HashMap.Strict (HashMap)
import Data.HashMap.Strict qualified as HM
import Database.Queries (fetchAllAppVersions)
@@ -10,14 +10,15 @@ import Foundation (Handler, RegistryCtx (..))
import Lib.Types.Core (PkgId)
import Lib.Types.Emver (Version)
import Model (VersionRecord (..))
import Startlude (Down (..), Eq, Show, Text, fst, pure, sortOn, ($), (&&&), (.), (<$>))
import Startlude (Down (..), Eq, Show, Text, fst, pure, sortOn, ($), (&&&), (.), (<$>), show)
import Yesod (ToContent (..), ToTypedContent (..), YesodPersist (runDB), getYesod)
import Data.Aeson.Key (fromText)
newtype ReleaseNotes = ReleaseNotes {unReleaseNotes :: HashMap Version Text}
deriving (Eq, Show)
instance ToJSON ReleaseNotes where
toJSON ReleaseNotes{..} = toJSON unReleaseNotes
toJSON ReleaseNotes {..} = object [ version .= value | (key, value) <- HM.toList unReleaseNotes, let version = fromText $ show key]
instance ToContent ReleaseNotes where
toContent = toContent . toJSON
instance ToTypedContent ReleaseNotes where