module Controller.Helper
  ( okOrBadRequest
  ) where

import           Data.Text                 (Text)
import qualified Data.Text.Lazy            as LT
import qualified Network.HTTP.Types.Status as Status
import           Web.Scotty                (ActionM)
import qualified Web.Scotty                as S

okOrBadRequest :: Either Text () -> ActionM ()
okOrBadRequest (Left message) = do
  S.status Status.badRequest400
  S.text (LT.fromStrict message)
okOrBadRequest (Right ()) =
  S.status Status.ok200