{-# LANGUAGE OverloadedStrings #-}

-- | This module defines the course lessons.
module Study.Courses.English.Vocabulary.Brivla.Lessons where

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

-- * Lessons
-- TODO: rename: "Brivla 1--20", "Brivla 21--40", ...

-- * Lesson.
lesson01 :: Lesson
lesson01 :: Lesson
lesson01 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"Deck #1" ExerciseGenerator
exercises01 Maybe Pandoc
forall a. Maybe a
Nothing Maybe Pandoc
forall a. Maybe a
Nothing (Vocabulary -> Maybe Vocabulary
forall a. a -> Maybe a
Just Vocabulary
vocabulary01)

-- * Lesson.
-- Conflicts:
--   * "ciska" vs "finti"
--   * "jundi" vs "zgana"
lesson02 :: Lesson
lesson02 :: Lesson
lesson02 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"Deck #2" ExerciseGenerator
exercises02 Maybe Pandoc
forall a. Maybe a
Nothing Maybe Pandoc
forall a. Maybe a
Nothing (Vocabulary -> Maybe Vocabulary
forall a. a -> Maybe a
Just Vocabulary
vocabulary02)

-- * Lesson.
lesson03 :: Lesson
lesson03 :: Lesson
lesson03 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"Deck #3" ExerciseGenerator
exercises03 Maybe Pandoc
forall a. Maybe a
Nothing Maybe Pandoc
forall a. Maybe a
Nothing (Vocabulary -> Maybe Vocabulary
forall a. a -> Maybe a
Just Vocabulary
vocabulary03)

-- * Lesson.
lesson04 :: Lesson
lesson04 :: Lesson
lesson04 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"Deck #4" ExerciseGenerator
exercises04 Maybe Pandoc
forall a. Maybe a
Nothing Maybe Pandoc
forall a. Maybe a
Nothing (Vocabulary -> Maybe Vocabulary
forall a. a -> Maybe a
Just Vocabulary
vocabulary04)

-- * Lesson.
lesson05 :: Lesson
lesson05 :: Lesson
lesson05 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"Deck #5" ExerciseGenerator
exercises05 Maybe Pandoc
forall a. Maybe a
Nothing Maybe Pandoc
forall a. Maybe a
Nothing (Vocabulary -> Maybe Vocabulary
forall a. a -> Maybe a
Just Vocabulary
vocabulary05)