{-# 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 = (UUID -> Text) -> UUID -> Builder forall a. (a -> Text) -> a -> Builder showtToShowb UUID -> Text forall a. TextShow a => a -> Text showt showt :: UUID -> Text showt = UUID -> Text U.toText