chat :: Text -> LocationId -> LocationAction LocationView
chat text locationId = do
    userName <- getCurrentUserName
    Location.chat (userName, text) locationId
    view locationId
chat :: Text -> LocationId -> LocationAction LocationView
chat text locationId = do
    userName <- getCurrentUserName
    Location.chat (userName, text) locationId
    view locationId
chat text locationId = do
    userName <- getCurrentUserName
    Location.chat (userName, text) locationId
    view locationId