{-# LANGUAGE NoImplicitPrelude #-}

module Data.Morpheus.App.Error
  ( badRequestError,
  )
where

import Data.ByteString.Lazy.Char8
  ( ByteString,
    pack,
  )
import Relude hiding (ByteString)

badRequestError :: String -> ByteString
badRequestError :: String -> ByteString
badRequestError = String -> ByteString
pack (String -> ByteString)
-> (String -> String) -> String -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (String
"Bad Request. Could not decode Request body: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<>)