17 lines
No EOL
452 B
Haskell
17 lines
No EOL
452 B
Haskell
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
|
module Guid (guid, run, runAt, 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 = runAt 0
|
|
runAt n x = evalState (runGC x) n |