diff options
Diffstat (limited to 'src/Id.hs')
-rw-r--r-- | src/Id.hs | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/src/Id.hs b/src/Id.hs deleted file mode 100644 index adc7e2e..0000000 --- a/src/Id.hs +++ /dev/null @@ -1,19 +0,0 @@ -module Id -( newId, - nextId -) where - -{- - - - - Écrit par Hédy GIRAUDEAU - - 27/07/17 - - --} - -import Data.IORef -import Data.Functor - -type Id_number a = IORef a - -newId = (newIORef 0) -nextId cnt = modifyIORef cnt (+1) >> (+0) <$> readIORef cnt |