git.iko.soy/project-m36
on request_timeout help sign in
project-m36/src/bin/TutorialD/Interpreter/Export/Base.hs
13 lines 614 B history raw
1module TutorialD.Interpreter.Export.Base where
2import ProjectM36.Base
3import ProjectM36.Error
4import Data.Monoid
6data RelVarDataExportOperator = RelVarDataExportOperator RelationalExpr FilePath (RelVarDataExportOperator -> Relation -> IO (Maybe RelationalError))
8instance Show RelVarDataExportOperator where
9 show (RelVarDataExportOperator expr path _) = "RelVarDataExportOperator " <> show expr <> " " <> path
11evalRelVarDataExportOperator :: RelVarDataExportOperator -> Relation -> IO (Maybe RelationalError)
12evalRelVarDataExportOperator op@(RelVarDataExportOperator _ _ exportFunc) rel = exportFunc op rel