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

import Study.Courses.English.Vocabulary.Attitudinals.Model
import Study.Courses.English.Vocabulary.Attitudinals.Glossary as G

-- Modifiers: nai, ru'e, sai
-- Question: pei
-- Others: zo'o, dai, ju'o

-- | List of attitudinals introduced in the first lesson (consists solely of pure emotions).
attitudinals1 :: [Attitudinal]
attitudinals1 :: [Attitudinal]
attitudinals1 = [Attitudinal
G.u'i, Attitudinal
G.ua, Attitudinal
G.oi, Attitudinal
G.ui, Attitudinal
G.ue, Attitudinal
G.u'u]

-- | List of attitudinals up to the first lesson.
attitudinals1_cumulative :: [Attitudinal]
attitudinals1_cumulative :: [Attitudinal]
attitudinals1_cumulative = [Attitudinal]
attitudinals1

-- | List of attitudinals introduced in the second lesson (consists solely of propositional emotions).
attitudinals2 :: [Attitudinal]
attitudinals2 :: [Attitudinal]
attitudinals2 = [Attitudinal
G.ie, Attitudinal
G.ei, Attitudinal
G.i'e, Attitudinal
G.ai, Attitudinal
G.au, Attitudinal
G.e'u]

-- | List of attitudinals up to the second lesson.
attitudinals2_cumulative :: [Attitudinal]
attitudinals2_cumulative :: [Attitudinal]
attitudinals2_cumulative = [Attitudinal]
attitudinals1_cumulative [Attitudinal] -> [Attitudinal] -> [Attitudinal]
forall a. [a] -> [a] -> [a]
++ [Attitudinal]
attitudinals2

-- | List of attitudinals introduced in the third lesson.
attitudinals3 :: [Attitudinal]
attitudinals3 :: [Attitudinal]
attitudinals3 = []

-- | List of attitudinals up to the third lesson.
attitudinals3_cumulative :: [Attitudinal]
attitudinals3_cumulative :: [Attitudinal]
attitudinals3_cumulative = [Attitudinal]
attitudinals2_cumulative [Attitudinal] -> [Attitudinal] -> [Attitudinal]
forall a. [a] -> [a] -> [a]
++ [Attitudinal]
attitudinals3

-- | List of attitudinals introduced in the fourth lesson (consists solely of propositional emotions).
attitudinals4 :: [Attitudinal]
attitudinals4 :: [Attitudinal]
attitudinals4 = [Attitudinal
G.a'o]

-- | List of attitudinals up to the fourth lesson.
attitudinals4_cumulative :: [Attitudinal]
attitudinals4_cumulative :: [Attitudinal]
attitudinals4_cumulative = [Attitudinal]
attitudinals3_cumulative [Attitudinal] -> [Attitudinal] -> [Attitudinal]
forall a. [a] -> [a] -> [a]
++ [Attitudinal]
attitudinals4