diff options
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 ] |