Codec.hs

{-# LANGUAGE OverloadedRecordDot #-}
-- @generated by keiro-dsl 0.8.0.0 (language keiro-dsl 4) from aggregate Page; do not edit.
module Generated.IncidentPaging.Page.Codec (
    pageCodec,
    parsePageEvent,
    encodePageEvent,
) where

import Generated.IncidentPaging.Page.Domain
import Data.Aeson (Value, object, withObject, withText, (.:), (.=))
import Data.Aeson.Types (Parser, explicitParseField, parseEither)
import Data.List.NonEmpty (NonEmpty (..))
import Data.Text (Text)
import qualified Data.Text as T
import Keiro.Codec (Codec (..), EventType (..))





pageCodec :: Codec PageEvent
pageCodec =
  Codec
    { eventTypes = EventType "PageSent" :| []
    , eventType = \case
        PageSent{} -> EventType "PageSent"
    , schemaVersion = 1
    , encode = encodePageEvent
    , decode = parsePageEvent
    , upcasters = []
    }

encodePageEvent :: PageEvent -> Value
encodePageEvent = \case
  PageSent payload ->
    object
      [ "kind" .= ("PageSent" :: Text)
      , "incidentId" .= payload.incidentId
      , "responderId" .= payload.responderId
      ]

parsePageEvent :: EventType -> Value -> Either Text PageEvent
parsePageEvent (EventType tag) = mapLeftText . parseEither (withObject "PageEvent" go)
  where
    go o = do
      case tag of
        "PageSent" ->
          PageSent
            <$> ( PageSentData
                    <$> o .: "incidentId"
                    <*> o .: "responderId"
                )
        _ -> fail ("unknown event type " <> show tag <> "; expected one of: PageSent")

mapLeftText :: Either String b -> Either Text b
mapLeftText = either (Left . T.pack) Right