{-# OPTIONS_GHC -Wno-orphans #-}

module LawfulConversions.Relations.StringAndUuid where

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

instance IsSome String UUID where
  to :: UUID -> String
to = UUID -> String
Data.UUID.Types.toString
  maybeFrom :: String -> Maybe UUID
maybeFrom = String -> Maybe UUID
Data.UUID.Types.fromString