git.iko.soy/project-m36
on 2fbb67a help sign in
project-m36/src/bin/TutorialD/Interpreter/Export/Base.hs
16 lines 665 B history raw
1{-# LANGUAGE CPP #-}
2module TutorialD.Interpreter.Export.Base where
3import ProjectM36.Base
4import ProjectM36.Error
5#if __GLASGOW_HASKELL__ <= 802
6import Data.Monoid
7#endif
9data RelVarDataExportOperator = RelVarDataExportOperator RelationalExpr FilePath (RelVarDataExportOperator -> Relation -> IO (Maybe RelationalError))
11instance Show RelVarDataExportOperator where
12 show (RelVarDataExportOperator expr path _) = "RelVarDataExportOperator " <> show expr <> " " <> path
14evalRelVarDataExportOperator :: RelVarDataExportOperator -> Relation -> IO (Maybe RelationalError)
15evalRelVarDataExportOperator op@(RelVarDataExportOperator _ _ exportFunc) = exportFunc op