Browse Source

Moved DDE-related modules to System.Win32

master
Denis Tereshkin 9 years ago
parent
commit
2247108691
  1. 4
      src/QuoteSource/DataImport.hs
  2. 2
      src/QuoteSource/TableParser.hs
  3. 2
      src/QuoteSource/TableParsers/AllParamsTableParser.hs
  4. 4
      src/System/Win32/DDE.hs
  5. 2
      src/System/Win32/XlParser.hs

4
src/QuoteSource/DataImport.hs

@ -11,9 +11,9 @@ import Control.Monad.State.Strict
import Data.ATrade import Data.ATrade
import Data.IORef import Data.IORef
import Data.Time.Clock import Data.Time.Clock
import QuoteSource.DDE
import QuoteSource.TableParser import QuoteSource.TableParser
import QuoteSource.XlParser import System.Win32.DDE
import System.Win32.XlParser
import qualified Data.Map as M import qualified Data.Map as M

2
src/QuoteSource/TableParser.hs

@ -5,7 +5,7 @@ module QuoteSource.TableParser (
TableParserInstance(..) TableParserInstance(..)
) where ) where
import QuoteSource.XlParser import System.Win32.XlParser
import Data.ATrade import Data.ATrade
import Control.Monad.State.Strict import Control.Monad.State.Strict
import Data.Time.Clock import Data.Time.Clock

2
src/QuoteSource/TableParsers/AllParamsTableParser.hs

@ -7,7 +7,7 @@ module QuoteSource.TableParsers.AllParamsTableParser (
import qualified Data.Map.Lazy as M import qualified Data.Map.Lazy as M
import QuoteSource.TableParser import QuoteSource.TableParser
import Data.ATrade import Data.ATrade
import QuoteSource.XlParser import System.Win32.XlParser
import Data.Tuple import Data.Tuple
import Data.Decimal import Data.Decimal
import Control.Monad.State.Strict import Control.Monad.State.Strict

4
src/QuoteSource/DDE.hs → src/System/Win32/DDE.hs

@ -1,6 +1,6 @@
{-# LANGUAGE ForeignFunctionInterface, CPP #-} {-# LANGUAGE ForeignFunctionInterface, CPP #-}
module QuoteSource.DDE ( module System.Win32.DDE (
initializeDde, initializeDde,
destroyDde, destroyDde,
DdeState, DdeState,
@ -33,7 +33,7 @@ import Data.Binary.Get
import Data.Typeable import Data.Typeable
import Data.ByteString hiding (map) import Data.ByteString hiding (map)
import Data.IORef import Data.IORef
import QuoteSource.XlParser import System.Win32.XlParser
import System.Win32.DLL import System.Win32.DLL
import System.Win32.Types import System.Win32.Types
import Foreign import Foreign

2
src/QuoteSource/XlParser.hs → src/System/Win32/XlParser.hs

@ -1,5 +1,5 @@
module QuoteSource.XlParser ( module System.Win32.XlParser (
XlData(..), XlData(..),
xlParser xlParser
) where ) where
Loading…
Cancel
Save