module Types
( TJungle
, newJungle
) where

import Control.Concurrent.STM (TVar, newTVarIO)
import qualified Jungle as J

type TJungle = TVar J.Jungle

newJungle :: IO TJungle
newJungle = do
    let
      jungle = J.createTree J.createJungle "boards"
    tv <- newTVarIO jungle 
    return tv