Cacher is the code snippet organizer for pro developers

statefulApp' :: MVar Int -> Application
statefulApp' countRef _ respond = do
  newCount <- modifyMVar countRef $ \count -> return (count, count + 1)
  let msg = byteString "You are visitor number: " <> intDec newCount
  respond $ responseBuilder status200 textHeader msg