Feedings.hs

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