git.iko.soy/project-m36
on 62_python_dbapi help sign in
project-m36/src/bin/TutorialD/Interpreter/Import/BasicExamples.hs
23 lines 885 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
10 deriving (Show)
12evalImportBasicExampleOperator :: ImportBasicExampleOperator -> DatabaseContextExpr
13evalImportBasicExampleOperator ImportBasicDateExampleOperator = databaseContextAsDatabaseContextExpr dateExamples
15importBasicExampleOperatorP :: Parser ImportBasicExampleOperator
16importBasicExampleOperatorP = do
17 reservedOp ":importexample"
18 example <- identifier
19 if example == "date" then
20 pure ImportBasicDateExampleOperator
21 else
22 fail "Unknown example name"