{-# OPTIONS -Wno-orphans #-}
module TextShow.Data.UUID where

import qualified Data.UUID.Types as U
import TextShow

instance TextShow U.UUID where
    showb :: UUID -> Builder
showb = forall a. (a -> Text) -> a -> Builder
showtToShowb forall a. TextShow a => a -> Text
showt
    showt :: UUID -> Text
showt = UUID -> Text
U.toText