main :: IO ()
main = do
  getStatic <- YS.static "../../public"
  socketIOHandler <- SIO.initialize yesodAPI server
  serverState <- STM.newTVarIO (OTS.initialServerState "baba links")
  clients <- STM.newTVarIO M.empty
  YC.warp 8000 (OTDemo {..})

-----------------------
main :: IO ()
main = do
  getStatic <- YS.static "../../public"
  socketIOHandler <- SIO.initialize yesodAPI server
  serverState <- STM.newTVarIO (OTS.initialServerState "baba links")
  clients <- STM.newTVarIO M.empty
  YC.warp 8000 (OTDemo {..})

-----------------------
main = do
  getStatic <- YS.static "../../public"
  socketIOHandler <- SIO.initialize yesodAPI server
  serverState <- STM.newTVarIO (OTS.initialServerState "baba links")
  clients <- STM.newTVarIO M.empty
  YC.warp 8000 (OTDemo {..})

-----------------------