add new lib ...

src/LibUniHbMensa.hs

+-----------------------------------------------------------------------------
+--             FOOD PLAN GUI - (c) 2022 Felix Drees - GNU GPLv3            --
+-----------------------------------------------------------------------------
+
+{-# LANGUAGE OverloadedStrings   #-}
+
+module LibUniHbMensa where
+
+import qualified Network.HTTP.Client     as H
+import qualified Network.HTTP.Client.TLS as H
+
+
+base_url :: [Char]
+base_url = "https://www.stw-bremen.de"
+
+mensa_url_list :: [[Char]]
+mensa_url_list = [
+  "/de/mensa/uni-mensa",              -- Uni-Mensa
+  "/de/mensa/nw-1",                   -- Mensa NW1
+  "/de/cafeteria/gw2",                -- Cafeteria GW2
+  "/de/cafeteria/grazer-stra%C3%9Fe", -- Cafeteria Grazer Straße
+  "/de/mensa/neustadtswall",          -- Mensa Neustadtswall
+  "/de/mensa/werderstra%C3%9Fe",      -- Mensa Werderstraße
+  "/de/mensa/airport",                -- Mensa Airport
+  "/de/mensa/bremerhaven",            -- Mensa Bremerhaven
+  "/de/cafeteria/bremerhaven",        -- Cafeteria Bremerhaven
+  "/de/mensa/interimsmensa-hfk"       -- Interimsmensa HfK
+  ]
+
+
+getMensaWebpage :: Int -> String
+getMensaWebpage mensaId
+  | (mensaId < 0) = error "INVALID INPUT FOR getMensaWebpage"
+  | (mensaId < 10) = getWebpage $ base_url ++ mensa_url_list !! mensaId
+  | otherwise = getWebpage $ base_url ++ mensa_url_list !! 0
+  where
+    getWebpage :: String -> String
+    getWebpage url = "test url: " ++ url
+    -- getWebpage url = H.httpLbs (H.setQueryString [("q", Just "r")] url) H.newManager H.tlsManagerSettings
+
+
+test :: IO ()
+test = do
+  httpman <- H.newManager H.tlsManagerSettings
+  let req = H.setQueryString [("q", Just "r")] "https://wikipedia.org"
+  response <- H.httpLbs req httpman
+  print response