15 lines
394 B
Plaintext
15 lines
394 B
Plaintext
module System.Metrics.Gauge (Gauge, new, read) where
|
|
|
|
import Control.Monad.Aff (Aff)
|
|
|
|
-- | An integer valued metric.
|
|
newtype Gauge = Gauge (forall eff. Aff eff Int)
|
|
|
|
-- | Creates a new gauge given the underlying measurement function.
|
|
new :: (forall eff. Aff eff Int) -> Gauge
|
|
new = Gauge
|
|
|
|
-- | Returns the current value of the gauge.
|
|
read :: forall eff. Gauge -> Aff eff Int
|
|
read (Gauge f) = f
|