Courseography / courseography / c1af5ae6-6501-463e-8e2b-3f62f7a4d663

{-|

    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, getDatabaseVersion, setDatabaseVersion) where

import Config (databasePath, runDb)

import Control.Monad (void)

import Control.Monad.IO.Class (MonadIO, liftIO)

import Data.Maybe (fromMaybe)

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

import Database.CourseVideoSeed (seedVideos)

import Database.Persist.Sqlite (Entity (..), SqlPersistT, entityVal, insert_, runMigration,

                                runMigrationQuiet, selectFirst, update, (=.))

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

-- | Gets the current version of the database.

-- If no version is defined, initialize the

-- version to 1 and return that.

getDatabaseVersion :: MonadIO m => SqlPersistT m Int

-- | Sets the database version number to newVersion

setDatabaseVersion :: MonadIO m => Int -> SqlPersistT m ()

-- | 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 ()