blob: 5726f3c98163c3af8d89ab687c173adacc35be0a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Hero.Database
( ComicDB
, getComics
, load
, dummy
)
where
import Hero.App
import Data.Map ( Map )
import qualified Data.Map as Map
import Dhall
import Protolude
import Servant ( Handler )
type ComicDB = (Map ComicId Comic)
instance Interpret Comic
load :: IO ComicDB
load = listToComicDB <$> input auto "./comic-database.dhall"
dummy :: IO ComicDB
dummy = return $ listToComicDB
[ Comic { comicId = "ComicId"
, comicPages = 10
, comicName = "Dummy comic"
, comicIssue = "dummy issue"
, comicDescription = "Lorem ipsum"
}
]
listToComicDB :: [Comic] -> ComicDB
listToComicDB ls = Map.fromList $ (,) <$> comicId <*> identity <$> ls
getComics :: ComicDB -> Handler [Comic]
getComics db = return $ Map.elems db
|
