Names :: M (Map (Lang, Text) Text)  -- ^ A 'Map' of all the WebOodi translations.
readOodiNames = do
    Config{..} <- ask
    exists <- liftIO $ doesFileExist oodiNameFile
    if exists
        then liftIO $ read <$> readFile oodiNameFile
        else return Map.empty


-- TODO: Check what this method does, step by step.
{- | Get a translated name for a specific 'Course', by looking it up from
    WebOodi.
-}
i18nCou
readOodiNames :: M (Map (Lang, Text) Text)
readOodiNames = do
    Config{..} <- ask
    exists <- liftIO $ doesFileExist oodiNameFile
    if exists
        then liftIO $ read <$> readFile oodiNameFile
        else return Map.empty


-- TODO: Check what this method does, step by step.
{- | Get a translated name for a specific 'Course', by looking it up from
    WebOodi.
-}
readOodiNames = do
    Config{..} <- ask
    exists <- liftIO $ doesFileExist oodiNameFile
    if exists
        then liftIO $ read <$> readFile oodiNameFile
        else return Map.empty


-- TODO: Check what this method does, step by step.
{- | Get a translated name for a specific 'Course', by looking it up from
    WebOodi.
-}