You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
{-# LANGUAGE ExistentialQuantification #-}
|
|
|
|
|
|
|
|
|
|
module QuoteSource.TableParser (
|
|
|
|
|
TableParser(..),
|
|
|
|
|
TableParserInstance(..)
|
|
|
|
|
) where
|
|
|
|
|
|
|
|
|
|
import QuoteSource.XlParser
|
|
|
|
|
import Data.ATrade
|
|
|
|
|
import Control.Monad.State.Strict
|
|
|
|
|
import Data.Time.Clock
|
|
|
|
|
|
|
|
|
|
data TableParserInstance = forall a . TableParser a => MkTableParser a
|
|
|
|
|
|
|
|
|
|
class TableParser a where
|
|
|
|
|
parseXlTable :: (Int, Int, [XlData]) -> State a [Tick]
|
|
|
|
|
giveTimestampHint :: a -> UTCTime -> a
|
|
|
|
|
getTableId :: a -> String
|
|
|
|
|
|
