view Types.hs @ 4:124384cddb7e

fix port number 8080 from 3000
author Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
date Sat, 13 Jul 2013 01:31:11 +0900
parents 616d3e6ce483
children 782efee9766c
line wrap: on
line source

module Types
( TJungle
, newJungle
) where

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

import Data.ByteString.Lazy.Char8 (pack)

type TJungle = TVar J.Jungle

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