diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-10-18 10:13:30 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-10-23 23:26:21 +0200 |
| commit | e45b366ca8b9caa4fe0087e5c4fb1720472d9c23 (patch) | |
| tree | 284f7cca2d3d58482ea459bd3b80c585a0fa7c72 /src/Erebos/UUID.hs | |
| parent | 552cb773ce9d8472530e123e926493b3dd1e658f (diff) | |
Diffstat (limited to 'src/Erebos/UUID.hs')
| -rw-r--r-- | src/Erebos/UUID.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Erebos/UUID.hs b/src/Erebos/UUID.hs index 128d450..582bab2 100644 --- a/src/Erebos/UUID.hs +++ b/src/Erebos/UUID.hs @@ -6,14 +6,14 @@ module Erebos.UUID ( nextRandom, ) where -import Crypto.Random.Entropy - import Data.Bits import Data.ByteString qualified as BS import Data.ByteString.Lazy qualified as BSL import Data.Maybe import Data.UUID.Types +import Crypto + nextRandom :: IO UUID nextRandom = do [ b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, ba, bb, bc, bd, be, bf ] |