makeResults :: [CommandResult] -> Data.Text.Internal.Lazy.Text
makeResults cr = [lt|<?xml version="1.0" encoding="UTF-8" ?>
<prtg>#{r}</prtg>
|]
  where r = Prelude.foldl Data.Text.Lazy.append "" (Prelude.map makeResult cr)
makeResults :: [CommandResult] -> Data.Text.Internal.Lazy.Text
makeResults cr = [lt|<?xml version="1.0" encoding="UTF-8" ?>
<prtg>#{r}</prtg>
|]
  where r = Prelude.foldl Data.Text.Lazy.append "" (Prelude.map makeResult cr)
makeResults cr = [lt|<?xml version="1.0" encoding="UTF-8" ?>
<prtg>#{r}</prtg>
|]
  where r = Prelude.foldl Data.Text.Lazy.append "" (Prelude.map makeResult cr)