makeError :: CommandResult -> Data.Text.Internal.Lazy.Text
makeError cr@CommandResult {exitStatus = ExitFailure e} = [lt|<?xml version="1.0" encoding="UTF-8" ?>
<prtg>
    <error>1</error>
    <text>
      Command Name: #{commandName cr}
      Exit Status: #{e}
      StdOut: #{stdOut cr}
      StdErr: #{stdErr cr}
    </text>
</prtg>
|]
makeError :: CommandResult -> Data.Text.Internal.Lazy.Text
makeError cr@CommandResult {exitStatus = ExitFailure e} = [lt|<?xml version="1.0" encoding="UTF-8" ?>
<prtg>
    <error>1</error>
    <text>
      Command Name: #{commandName cr}
      Exit Status: #{e}
      StdOut: #{stdOut cr}
      StdErr: #{stdErr cr}
    </text>
</prtg>
|]
makeError cr@CommandResult {exitStatus = ExitFailure e} = [lt|<?xml version="1.0" encoding="UTF-8" ?>
<prtg>
    <error>1</error>
    <text>
      Command Name: #{commandName cr}
      Exit Status: #{e}
      StdOut: #{stdOut cr}
      StdErr: #{stdErr cr}
    </text>
</prtg>
|]