src/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

module Main (main) where

import Text.ParserCombinators.Parsec.Prim
import Text.BibTeX.Parse
import System.Directory (copyFile)

import Render (render)
import Db (readDb)

import Paths_comatose

-- |Read attributions from bibtex file
readAttributions = getDataFileName "data/attribution.bib" >>= parseFromFile file

copyDataFile source dest = getDataFileName source >>= (\x -> copyFile x dest)

main = do
    db <- getDataFileName "data/db.yaml" >>= readDb
    (Right attribution) <- readAttributions
    render "_build/index.html" db attribution
    copyDataFile "data/style.css" "_build/style.css"
    copyDataFile "data/script.js" "_build/script.js"