42 lines
1.3 KiB
Haskell
42 lines
1.3 KiB
Haskell
module Ringo
|
|
( module Ringo.Types
|
|
, extractFactTable
|
|
, extractDimensionTables
|
|
, G.tableDefnSQL
|
|
, factTableDefnSQL
|
|
, dimensionTablePopulateSQL
|
|
, factTableInsertSQL
|
|
, validateTable
|
|
, validateFact
|
|
) where
|
|
|
|
import Control.Monad.Reader (runReader)
|
|
import Data.Text (Text)
|
|
|
|
import Ringo.Types
|
|
import qualified Ringo.Extractor as E
|
|
import qualified Ringo.Generator as G
|
|
import qualified Ringo.Validator as V
|
|
|
|
extractFactTable :: Env -> Fact -> Table
|
|
extractFactTable env = flip runReader env . E.extractFactTable
|
|
|
|
extractDimensionTables :: Env -> Fact -> [Table]
|
|
extractDimensionTables env = flip runReader env . E.extractDimensionTables
|
|
|
|
factTableDefnSQL :: Env -> Fact -> Table -> [Text]
|
|
factTableDefnSQL env fact = flip runReader env . G.factTableDefnSQL fact
|
|
|
|
dimensionTablePopulateSQL :: TablePopulationMode -> Env -> Fact -> TableName -> Text
|
|
dimensionTablePopulateSQL popMode env fact =
|
|
flip runReader env . G.dimensionTablePopulateSQL popMode fact
|
|
|
|
factTableInsertSQL :: Env -> Fact -> Text
|
|
factTableInsertSQL env = flip runReader env . G.factTableInsertSQL
|
|
|
|
validateTable :: Env -> Table -> [ValidationError]
|
|
validateTable env = flip runReader env . V.validateTable
|
|
|
|
validateFact :: Env -> Fact -> [ValidationError]
|
|
validateFact env = flip runReader env . V.validateFact
|