server/src/Model/UUID.hs


1
2
3
4
5
6
7
8
9
10

module Model.UUID
  ( generateUUID
  ) where

import           Data.Text    (Text, pack)
import           Data.UUID    (toString)
import           Data.UUID.V4 (nextRandom)

generateUUID :: IO Text
generateUUID = pack . toString <$> nextRandom