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.
26 lines
478 B
26 lines
478 B
module Main where |
|
|
|
import Lib |
|
import QuoteSource.DDE |
|
import QuoteSource.DataImport |
|
import Control.Concurrent |
|
import Control.Monad |
|
import Control.Monad.IO.Class |
|
import Data.IORef |
|
import Graphics.UI.Gtk hiding (Action, backspace) |
|
|
|
|
|
callback :: DdeCallback |
|
callback = undefined |
|
|
|
main :: IO () |
|
main = do |
|
dis <- initDataImportServer "atrade" |
|
void initGUI |
|
window <- windowNew |
|
window `on` deleteEvent $ do |
|
liftIO mainQuit |
|
return False |
|
widgetShowAll window |
|
mainGUI |
|
|
|
|