mirror of
https://git.nerfingen.de/nerf/choirMail.git
synced 2024-10-22 19:39:25 +00:00
19 lines
542 B
Haskell
19 lines
542 B
Haskell
{-# LANGUAGE OverloadedStrings, DataKinds#-}
|
|
module Requester(request) where
|
|
|
|
import Network.HTTP.Req
|
|
-- import qualified Data.Text as T
|
|
import Control.Monad.IO.Class(MonadIO)
|
|
import qualified Data.ByteString as B
|
|
import Text.URI
|
|
|
|
url :: Url 'Https
|
|
url = https "md.darmstadt.ccc.de" /: "mathechor-probenplanung" /: "download"
|
|
|
|
|
|
|
|
requestRunner :: (MonadIO m)=> m BsResponse
|
|
requestRunner = runReq defaultHttpConfig $ req GET url NoReqBody bsResponse mempty
|
|
|
|
request :: (MonadIO m) => m B.ByteString
|
|
request = fmap responseBody requestRunner
|