git.iko.soy/project-m36
on 97d73bb help sign in
project-m36/src/bin/TutorialD/Interpreter/Import/BasicExamples.hs
22 lines 837 B history raw
1--includes some hardcoded examples which can be imported even during safe evaluation (no file I/O)
2module TutorialD.Interpreter.Import.BasicExamples where
3import ProjectM36.DateExamples
4import ProjectM36.Base
5import ProjectM36.DatabaseContext
6import TutorialD.Interpreter.Base
7import Text.Megaparsec.Text
9data ImportBasicExampleOperator = ImportBasicDateExampleOperator
11evalImportBasicExampleOperator :: ImportBasicExampleOperator -> DatabaseContextExpr
12evalImportBasicExampleOperator ImportBasicDateExampleOperator = databaseContextAsDatabaseContextExpr dateExamples
14importBasicExampleOperatorP :: Parser ImportBasicExampleOperator
15importBasicExampleOperatorP = do
16 reservedOp ":importexample"
17 example <- identifier
18 if example == "date" then
19 pure ImportBasicDateExampleOperator
20 else
21 fail "Unknown example name"