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.
19 lines
463 B
19 lines
463 B
{-# 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 |
|
|
|
|