module Test.Fluent.Diff where

import Data.Default (Default (def))
import qualified Data.Text as T
import qualified Pretty.Diff as Diff

pretty :: Show a => a -> a -> String
pretty :: a -> a -> String
pretty a
a a
b =
  let x :: Text
x = String -> Text
T.pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ a -> String
forall a. Show a => a -> String
show a
a
      y :: Text
y = String -> Text
T.pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ a -> String
forall a. Show a => a -> String
show a
b
   in Text -> String
T.unpack (Text -> String) -> Text -> String
forall a b. (a -> b) -> a -> b
$ Config -> Text -> Text -> Text
Diff.pretty Config
forall a. Default a => a
def Text
x Text
y