Merge pull request #839 from IntersectMBO/pretty-instance-for-url

Add `Pretty` instance to `Url`

Author: palas

cardano-api/src/Cardano/Api/Internal/Pretty.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-orphans #-}
+
 module Cardano.Api.Internal.Pretty
   ( Ann
   , Doc
@@ -24,6 +26,8 @@ where
 
 import Cardano.Api.Internal.Via.ShowOf
 
+import Cardano.Ledger.BaseTypes qualified as L
+
 import Control.Exception.Safe
 import Data.Text qualified as Text
 import Data.Text.Lazy qualified as TextLazy
@@ -74,3 +78,6 @@ pshow = viaShow
 -- | Short hand for @'pretty' . 'displayException'@
 prettyException :: Exception a => a -> Doc ann
 prettyException = pretty . displayException
+
+instance Pretty L.Url where
+  pretty url = pretty (L.urlToText url)