Haskell -- diff anything

gistfile1.txt

import System.IO.Temp
import System.IO.Unsafe
import System.Process
import Data.Text

debugDiffIO :: Show a => a -> a -> IO (Maybe Text)
debugDiffIO x y = do
    xf <- writeSystemTempFile "x" $ show x
    yf <- writeSystemTempFile "y" $ show y
    (exitCode, result, _) <- readProcessWithExitCode "git" ["diff", "--no-index", "--color-words=.", xf, yf] ""
    case exitCode of
      ExitSuccess -> return Nothing
      ExitFailure n -> return $ Just $ pack result

debugDiff' :: Show a => a -> a -> Maybe Text
debugDiff' x y = unsafePerformIO $ debugDiffIO x y

debugDiff x y = fromMaybe "" $ debugDiff' x y