Examples.hs

data Person
  = Person
  { firstName :: String
  , lastName :: String
  , idCode :: String
  }

-- | Problem 1: screw up what field is which:
serializer
  = Person
  <$> objectKey "firstName" lastName
  <*> objectKey "lastName" firstName
  <*> objectKey "idCode" idCode


-- | Problem 2: non-bidirectional fmap
--
-- This isn't "completely wrong" but it does break the expectation that `toJSON . fromJSON = id`
--
-- ...Which isn't true in the library in general but it's explicitly not true you know
serializer
  = Person
  <$> objectKey "firstName" firstName
  <*> fmap convertSpacesToDashesForBusinessLogicReasons (objectKey "lastName" lastName)
  <*> objectKey "idCode" idCode