src/bin/TutorialD/Interpreter/Import/BasicExamples.hs · project-m36

git.iko.soy/project-m36

on f7fc888 help sign in

27 lines 949 B history raw

1{-# LANGUAGE CPP #-}

2--includes some hardcoded examples which can be imported even during safe evaluation (no file I/O)

3module TutorialD.Interpreter.Import.BasicExamples where

4import ProjectM36.DateExamples

5import ProjectM36.Base

6import ProjectM36.DatabaseContext

7import TutorialD.Interpreter.Base

9#if !MIN_VERSION_megaparsec(6,0,0)

10import Text.Megaparsec.Text

11#endif

13data ImportBasicExampleOperator = ImportBasicDateExampleOperator

14 deriving (Show)

16evalImportBasicExampleOperator :: ImportBasicExampleOperator -> DatabaseContextExpr

17evalImportBasicExampleOperator ImportBasicDateExampleOperator = databaseContextAsDatabaseContextExpr dateExamples

19importBasicExampleOperatorP :: Parser ImportBasicExampleOperator

20importBasicExampleOperatorP = do

21 reservedOp ":importexample"

22 example <- identifier

23 if example == "date" then

24 pure ImportBasicDateExampleOperator

25 else

26 fail "Unknown example name"