Feedings.hs

postFeedingsR :: Handler RepJson
postFeedingsR  = do
      muser <- maybeAuth
      parsedFeeding <- parseJsonBody_ --get content as JSON
      let userId = getUserId muser
          feedingWithUser = Feeding (feedingDate parsedFeeding) (feedingSide parsedFeeding) (feedingTime parsedFeeding) (feedingExcrements parsedFeeding) (feedingRemarks parsedFeeding) userId --should be linked to user..
      fid <- runDB $ insert parsedFeeding --feedingWithUser --store in database
      --runDB $ update fid [ FeedingUserId =. userId ] --link the feeding to the user
      sendResponseCreated $ FeedingR fid --return the id