module Network.Salvia.Handlers.Counter (hCounter) where

import Control.Concurrent.STM
import Control.Monad.State
import Network.Salvia.Httpd

hCounter :: TVar Int -> Handler ()
hCounter c = lift $ atomically
  $ readTVar c >>= writeTVar c . (+1)