Move module hierarchy under CHAD.

1 files changed, 0 insertions, 19 deletions

diff --git a/src/Util/IdGen.hs b/src/Util/IdGen.hs
deleted file mode 100644
index 3f6611d..0000000
--- a/src/Util/IdGen.hs
+++ /dev/null
@@ -1,19 +0,0 @@
-{-# LANGUAGE DerivingStrategies #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-module Util.IdGen where
-
-import Control.Monad.Fix
-import Control.Monad.Trans.State.Strict
-
-
-newtype IdGen a = IdGen (State Int a)
-  deriving newtype (Functor, Applicative, Monad, MonadFix)
-
-genId :: IdGen Int
-genId = IdGen (state (\i -> (i, i + 1)))
-
-runIdGen :: Int -> IdGen a -> a
-runIdGen start (IdGen m) = evalState m start
-
-runIdGen' :: Int -> IdGen a -> (a, Int)
-runIdGen' start (IdGen m) = runState m start