-- | This module defines vocabulary for the course.
module Study.Courses.English.Vocabulary.Brivla.Vocabulary where

import Core
import Study.Courses.English.Vocabulary.Brivla.Translations

-- * Auxiliar functions
-- | Extracts vocabulary from 'TranslationsByExpression'.
extractVocabulary :: TranslationsByExpression -> Vocabulary
extractVocabulary :: TranslationsByExpression -> Vocabulary
extractVocabulary TranslationsByExpression
translationsByExpression = [Text] -> [Text] -> [Text] -> Vocabulary
Vocabulary [Text]
brivlaList [] [] where
    brivlaList :: [Text]
brivlaList = ((Text, [Translation]) -> Text)
-> TranslationsByExpression -> [Text]
forall a b. (a -> b) -> [a] -> [b]
map (Text, [Translation]) -> Text
forall a b. (a, b) -> a
fst TranslationsByExpression
translationsByExpression

-- * Vocabulary

-- | Vocabulary for the corresponding lesson.
vocabulary01 :: Vocabulary
vocabulary01 :: Vocabulary
vocabulary01 = TranslationsByExpression -> Vocabulary
extractVocabulary TranslationsByExpression
translationsByExpression01

-- | Vocabulary for the corresponding lesson.
vocabulary02 :: Vocabulary
vocabulary02 :: Vocabulary
vocabulary02 = TranslationsByExpression -> Vocabulary
extractVocabulary TranslationsByExpression
translationsByExpression02

-- | Vocabulary for the corresponding lesson.
vocabulary03 :: Vocabulary
vocabulary03 :: Vocabulary
vocabulary03 = TranslationsByExpression -> Vocabulary
extractVocabulary TranslationsByExpression
translationsByExpression03

-- | Vocabulary for the corresponding lesson.
vocabulary04 :: Vocabulary
vocabulary04 :: Vocabulary
vocabulary04 = TranslationsByExpression -> Vocabulary
extractVocabulary TranslationsByExpression
translationsByExpression04

-- | Vocabulary for the corresponding lesson.
vocabulary05 :: Vocabulary
vocabulary05 :: Vocabulary
vocabulary05 = TranslationsByExpression -> Vocabulary
extractVocabulary TranslationsByExpression
translationsByExpression05