{-# LANGUAGE OverloadedStrings #-} module SchedulePlanner.Scraper.TUDresden (scrapeTuDresden) where import Control.Arrow import Control.Monad import Data.Bool import qualified Data.Map as Map import Data.Maybe import qualified Data.Text as T import Data.Text.ICU import Network.HTTP import Network.Stream import SchedulePlanner.Types (Day (..), Lesson (..), Slot (..)) grabTableRegex :: Int -> Regex grabTableRegex = regex [DotAll] . T.append "