{-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Language.Symantic.HTTP.Client where

-- import qualified Data.HashMap.Strict as HM
import Control.Applicative (Applicative(..), Alternative(..))
import Control.Monad (Monad(..), (=<<), void)
import Data.Bool
import Data.Either (Either(..))
import Data.Eq (Eq(..))
import Data.Foldable (toList)
import Data.Function (($), (.), id)
import Data.String (IsString(..))
import Data.Maybe (Maybe(..))
import Data.Ord (Ord(..))
import Data.Semigroup (Semigroup(..))
import Data.Tuple (fst, snd)
import Prelude (print, undefined)
import System.IO (IO, putStrLn)
import Text.Show (Show(..))
import qualified Control.Monad.Trans.Reader as R
-- import qualified Control.Monad.Trans.Writer as W
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BSL
import qualified Data.List as List
import qualified Data.Set as Set
import qualified Data.Text as Text
import qualified Network.HTTP.Media as Media
import qualified Network.HTTP.Types as HTTP
import qualified Network.Wai as Wai

import Language.Symantic.HTTP.Media
import Language.Symantic.HTTP.API