{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}

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

import Core
import Study.Framework.Lojban.TranslationLoaders (loadTranslationsByExpressionFromYamlCode)
import Data.FileEmbed (embedStringFile)

-- | Translations for the corresponding lesson.
translationsByExpression01 :: TranslationsByExpression
translationsByExpression01 :: TranslationsByExpression
translationsByExpression01 = Text -> TranslationsByExpression
loadTranslationsByExpressionFromYamlCode $(embedStringFile "resources/decks/english/brivla/sentences/01.yaml")

-- | Translations for the corresponding lesson.
translationsByExpression02 :: TranslationsByExpression
translationsByExpression02 :: TranslationsByExpression
translationsByExpression02 = Text -> TranslationsByExpression
loadTranslationsByExpressionFromYamlCode $(embedStringFile "resources/decks/english/brivla/sentences/02.yaml")

-- | Translations for the corresponding lesson.
translationsByExpression03 :: TranslationsByExpression
translationsByExpression03 :: TranslationsByExpression
translationsByExpression03 = Text -> TranslationsByExpression
loadTranslationsByExpressionFromYamlCode $(embedStringFile "resources/decks/english/brivla/sentences/03.yaml")

-- | Translations for the corresponding lesson.
translationsByExpression04 :: TranslationsByExpression
translationsByExpression04 :: TranslationsByExpression
translationsByExpression04 = Text -> TranslationsByExpression
loadTranslationsByExpressionFromYamlCode $(embedStringFile "resources/decks/english/brivla/sentences/04.yaml")

-- | Translations for the corresponding lesson.
translationsByExpression05 :: TranslationsByExpression
translationsByExpression05 :: TranslationsByExpression
translationsByExpression05 = Text -> TranslationsByExpression
loadTranslationsByExpressionFromYamlCode $(embedStringFile "resources/decks/english/brivla/sentences/05.yaml")

-- | All translations.
translationsByExpression :: TranslationsByExpression
translationsByExpression :: TranslationsByExpression
translationsByExpression = [TranslationsByExpression] -> TranslationsByExpression
forall a. Monoid a => [a] -> a
mconcat [TranslationsByExpression
translationsByExpression01, TranslationsByExpression
translationsByExpression02, TranslationsByExpression
translationsByExpression03, TranslationsByExpression
translationsByExpression04, TranslationsByExpression
translationsByExpression05]