nerf/choirMail
1
0
Fork 0
mirror of https://git.nerfingen.de/nerf/choirMail.git synced 2025-05-15 09:50:29 +00:00
Code Issues Projects Releases Packages Wiki Activity

first working commit

Browse source
This commit is contained in:
nerf van nerfingen 2022-11-08 20:16:34 +01:00
parent 2e2bbcd0d6
commit 0447d72e71
13 changed files with 465 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
app/Requester.hs Normal file
View file

@ -0,0 +1,19 @@
{-# 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