Language/Symantic/HTTP/Client.hs

   1 {-# LANGUAGE AllowAmbiguousTypes #-}
   2 {-# LANGUAGE LambdaCase #-}
   3 {-# LANGUAGE MultiParamTypeClasses #-}
   4 {-# LANGUAGE OverloadedStrings #-}
   5 {-# LANGUAGE StrictData #-}
   6 {-# LANGUAGE TypeApplications #-}
   7 {-# LANGUAGE TypeFamilies #-}
   8 {-# OPTIONS_GHC -fno-warn-orphans #-}
   9 module Language.Symantic.HTTP.Client where
  10
  11 -- import qualified Data.HashMap.Strict as HM
  12 import Control.Applicative (Applicative(..), Alternative(..))
  13 import Control.Monad (Monad(..), (=<<), void)
  14 import Data.Bool
  15 import Data.Either (Either(..))
  16 import Data.Eq (Eq(..))
  17 import Data.Foldable (toList)
  18 import Data.Function (($), (.), id)
  19 import Data.String (IsString(..))
  20 import Data.Maybe (Maybe(..))
  21 import Data.Ord (Ord(..))
  22 import Data.Semigroup (Semigroup(..))
  23 import Data.Tuple (fst, snd)
  24 import Prelude (print, undefined)
  25 import System.IO (IO, putStrLn)
  26 import Text.Show (Show(..))
  27 import qualified Control.Monad.Trans.Reader as R
  28 -- import qualified Control.Monad.Trans.Writer as W
  29 import qualified Data.ByteString as BS
  30 import qualified Data.ByteString.Lazy as BSL
  31 import qualified Data.List as List
  32 import qualified Data.Set as Set
  33 import qualified Data.Text as Text
  34 import qualified Network.HTTP.Media as Media
  35 import qualified Network.HTTP.Types as HTTP
  36 import qualified Network.Wai as Wai
  37
  38 import Language.Symantic.HTTP.Media
  39 import Language.Symantic.HTTP.API
  40
  41