postRegister :: State -> ActionM ()
postRegister state = do
  name <- param "nickName"
  Players.registerPlayer name state
  redirect "/play"         
postRegister :: State -> ActionM ()
postRegister state = do
  name <- param "nickName"
  Players.registerPlayer name state
  redirect "/play"         
postRegister state = do
  name <- param "nickName"
  Players.registerPlayer name state
  redirect "/play"         