mirror of
https://git.nerfingen.de/nerf/choirMail.git
synced 2025-05-15 01:40:40 +00:00
18 lines
526 B
Haskell
18 lines
526 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
|
|
|
|
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
|