Mercurial > hg > Members > toma > bulletinboard
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