Elm-0.1.1.1: src/Guid.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Guid (guid, run, GuidCounter) where

import Control.Monad.State (evalState, State, get, put)

-- Wrapper around State monad.
newtype GuidCounter a = GC { runGC :: State Int a }
    deriving (Monad)

-- Get the next GUID, incrementing the counter.
guid :: GuidCounter Int
guid = GC $ do n <- get
               put (n + 1)
               return n

run x = evalState (runGC x) 0