{-# LANGUAGE OverloadedStrings #-}

-- | This module defines the course lessons.
module Study.Courses.English.Grammar.Crash.Lessons where

import Core
import Study.Courses.English.Grammar.Crash.Documents
import Study.Courses.English.Grammar.Crash.Exercises
import Study.Courses.English.Grammar.Crash.Vocabulary

-- | Lesson.
lesson01 :: Lesson
lesson01 :: Lesson
lesson01 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"The simplest sentence" ExerciseGenerator
exercises01 (Pandoc -> Maybe Pandoc
forall a. a -> Maybe a
Just Pandoc
lecture01) Maybe Pandoc
forall a. Maybe a
Nothing (Vocabulary -> Maybe Vocabulary
forall a. a -> Maybe a
Just Vocabulary
vocabulary01_cumulative)

-- | Lesson.
lesson02 :: Lesson
lesson02 :: Lesson
lesson02 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"Pronouns" ExerciseGenerator
exercises02 (Pandoc -> Maybe Pandoc
forall a. a -> Maybe a
Just Pandoc
lecture02) Maybe Pandoc
forall a. Maybe a
Nothing (Vocabulary -> Maybe Vocabulary
forall a. a -> Maybe a
Just Vocabulary
vocabulary02_cumulative)

-- | Numbers.
lesson03 :: Lesson
lesson03 :: Lesson
lesson03 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"Numbers" ExerciseGenerator
exercises03 (Pandoc -> Maybe Pandoc
forall a. a -> Maybe a
Just Pandoc
lecture03) Maybe Pandoc
forall a. Maybe a
Nothing (Vocabulary -> Maybe Vocabulary
forall a. a -> Maybe a
Just Vocabulary
vocabulary03_cumulative)