Browse files

simplify console start

  • Loading branch information...
1 parent b47e097 commit c1e32fae1dbd4e8f763bb618f938e965ac693e61 @zhensydow committed Apr 9, 2012
Showing with 5 additions and 7 deletions.
  1. +5 −7 src/zddcpu16_con_main.hs
View
12 src/zddcpu16_con_main.hs
@@ -22,6 +22,7 @@ import Control.Concurrent( forkIO, killThread )
import Control.Concurrent.MVar( MVar, newMVar, readMVar )
import qualified Graphics.UI.SDL as SDL( Event(..), pollEvent )
import Network.MessagePackRpc.Server( serve )
+import System.IO( stdout, hFlush )
import ZDCpu16.Render( runRender, clearScreen )
import ZDCpu16.ConRPC( serverRPCMethods )
import ZDCpu16.ConRender( RenderState, mkRenderState, renderConsole )
@@ -54,17 +55,14 @@ main :: IO ()
main = do
csRef <- newMVar $ mkConState
- msgTID <- forkIO $ do
- putStrLn "start RPC server"
- serve 1234 $ serverRPCMethods csRef
- putStrLn "end RPC server"
+ msgTID <- forkIO $ serve 1234 $ serverRPCMethods csRef
- putStrLn "start sdl server"
rst <- mkRenderState
+ putStrLn "console started"
+ hFlush stdout
mainLoop rst csRef
- putStrLn "end sdl server"
killThread msgTID
- putStrLn "Exit"
+ putStrLn "console ended"
-- -----------------------------------------------------------------------------

0 comments on commit c1e32fa

Please sign in to comment.