Permalink
Browse files

Roguestar.hs.

  • Loading branch information...
1 parent d3dfeac commit d5fc1b2f2edb7650521538fdec7da12f0c5bc5d7 @clanehin committed May 8, 2012
Showing with 16 additions and 0 deletions.
  1. +16 −0 Roguestar/Lib/Roguestar.hs
View
@@ -0,0 +1,16 @@
+module Roguestar.Lib.Roguestar
+ (Game,
+ newEmptyGame)
+ where
+
+import Roguestar.Lib.DB as DB
+import Control.Concurrent.STM
+
+data Game = Game {
+ game_db :: TVar DB_BaseType }
+
+newEmptyGame :: IO Game
+newEmptyGame =
+ do db <- newTVarIO initial_db
+ return $ Game db
+

0 comments on commit d5fc1b2

Please sign in to comment.