fullattempt

{-# LANGUAGE DataKinds         #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedLabels  #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards   #-}
{-# LANGUAGE BlockArguments   #-}
module Handler.Login where

import Import
import Data.Aeson
import Database.Persist.Postgresql
import Data.HashMap
import Data.Aeson.Types
import Data.Maybe (fromJust)

.
.
.

data LoginData = LoginData {
    email :: Text
  , password :: Text
}

instance FromJSON LoginData
instance ToJSON LoginData

postUserLoginR :: Handler Value
postUserLoginR = do
  newLogin <- requireCheckJsonBody :: Handler Value
  let mEmail = fromJust $ parseMaybe (.: "email") newLogin :: Text
--from there, query the postgresql database and obtain a record (getBy) email