Courseography / courseography / d64d18ba-ec0c-490a-ad8b-28e03fcc853b

{-|

    Module      : Database.Database

    Description : Main module for database course seeding.

The main module for parsing course information from the web and

inserting it into the database. Run when @cabal run database@ is executed.

-}

module Database.Database

    (populateCalendar, setupDatabase) where

import Config (databasePath, runDb)

import Control.Monad (void)

import Control.Monad.IO.Class (liftIO)

import Data.Maybe (fromMaybe)

import Data.Text as T (findIndex, length, reverse, take, unpack)

import Database.CourseVideoSeed (seedVideos)

import Database.Migrations (getDatabaseVersion)

import Database.Persist.Sqlite (insert_, runMigration, runMigrationQuiet)

import Database.Tables

import System.Directory (createDirectoryIfMissing)

import WebParsing.ArtSciParser (parseCalendar)

distTableSetUpStr :: String

breathTableSetUpStr :: String

-- | Creates the database if it doesn't exist and runs migrations.

setupDatabase :: Bool -> IO ()

    -- Create db folder if it doesn't exist

    -- Match SQL database with ORM, then initialize schema version table

-- | Sets up the course information from Artsci Calendar

populateCalendar :: IO ()

-- | Sets up the tables and seeds the videos for the database.

populateStaticInfo :: IO ()

-- | Sets up the Distribution table.

setupDistributionTable :: IO ()

-- | Sets up the Breadth table.

setupBreadthTable :: IO ()