git.iko.soy/project-m36
on 8a69395 help sign in
project-m36/TutorialD/Interpreter/Export/Base.hs
9 lines 451 B history raw
1module TutorialD.Interpreter.Export.Base where
2import ProjectM36.Base
3import ProjectM36.Error
5data DataExportOperator = DataExportOperator (DatabaseContext -> FilePath -> IO (Maybe RelationalError)) FilePath
7evalDataExportOperator :: DataExportOperator -> DatabaseContext -> IO (Maybe RelationalError)
8evalDataExportOperator (DataExportOperator exportFunc pathOut) context = exportFunc context pathOut