git.iko.soy/project-m36
on ffe683a help sign in
project-m36/TutorialD/Interpreter/Export/Base.hs
9 lines 444 B history raw
1module TutorialD.Interpreter.Export.Base where
2import ProjectM36.Base
3import ProjectM36.Error
5data RelVarDataExportOperator = RelVarDataExportOperator RelationalExpr FilePath (RelVarDataExportOperator -> Relation -> IO (Maybe RelationalError))
7evalRelVarDataExportOperator :: RelVarDataExportOperator -> Relation -> IO (Maybe RelationalError)
8evalRelVarDataExportOperator op@(RelVarDataExportOperator _ _ exportFunc) rel = exportFunc op rel