{-# LANGUAGE OverloadedStrings #-}

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

import Core
import Study.Courses.English.Vocabulary.Attitudinals.Documents
import Study.Courses.English.Vocabulary.Attitudinals.Exercises

-- | First lesson: Pure emotions 1.
lesson1 :: Lesson
lesson1 :: Lesson
lesson1 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"Pure emotions 1" ExerciseGenerator
exercises1 (Pandoc -> Maybe Pandoc
forall a. a -> Maybe a
Just Pandoc
lecture1) (Pandoc -> Maybe Pandoc
forall a. a -> Maybe a
Just Pandoc
plan1) Maybe Vocabulary
forall a. Maybe a
Nothing

-- | Second lesson: Propositional emotions 1.
lesson2 :: Lesson
lesson2 :: Lesson
lesson2 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"Propositional emotions 1" ExerciseGenerator
exercises2 (Pandoc -> Maybe Pandoc
forall a. a -> Maybe a
Just Pandoc
lecture2) (Pandoc -> Maybe Pandoc
forall a. a -> Maybe a
Just Pandoc
plan2) Maybe Vocabulary
forall a. Maybe a
Nothing

-- | Third lesson: Attitudinal modifiers 1
lesson3 :: Lesson
lesson3 :: Lesson
lesson3 = Text
-> ExerciseGenerator
-> Maybe Pandoc
-> Maybe Pandoc
-> Maybe Vocabulary
-> Lesson
Lesson Text
"Attitudinal modifiers 1" ExerciseGenerator
exercises3 (Pandoc -> Maybe Pandoc
forall a. a -> Maybe a
Just Pandoc
lecture3) (Pandoc -> Maybe Pandoc
forall a. a -> Maybe a
Just Pandoc
plan3) Maybe Vocabulary
forall a. Maybe a
Nothing