{-# OPTIONS_GHC -Wno-orphans #-}

module LawfulConversions.Relations.TextAndUuid where

import qualified Data.UUID.Types as Uuid
import LawfulConversions.Classes
import LawfulConversions.Prelude

instance IsSome Text UUID where
  to :: UUID -> Text
to = UUID -> Text
Uuid.toText
  maybeFrom :: Text -> Maybe UUID
maybeFrom = Text -> Maybe UUID
Uuid.fromText