-- | This modules exposes the 'DeckStore'.
module Study.Decks.DeckStore (deckStore) where

import Core
import qualified Study.Decks.English.ContextualizedBrivla as ContextualizedBrivla
import qualified Study.Decks.Eberban.English.Roots as EberbanRoots
import qualified Data.Map as M

-- | Deck store.
deckStore :: DeckStore
deckStore :: DeckStore
deckStore = Map Text Deck -> DeckStore
DeckStore Map Text Deck
decksMap where
    decksMap :: Map Text Deck
decksMap = [(Text, Deck)] -> Map Text Deck
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList ([(Text, Deck)] -> Map Text Deck)
-> [(Text, Deck)] -> Map Text Deck
forall a b. (a -> b) -> a -> b
$ (Deck -> (Text, Deck)) -> [Deck] -> [(Text, Deck)]
forall a b. (a -> b) -> [a] -> [b]
map (\Deck
deck -> (Deck -> Text
deckId Deck
deck, Deck
deck)) [Deck]
decks
    decks :: [Deck]
decks = [Deck
ContextualizedBrivla.deck, Deck
EberbanRoots.deck]