From 0287530a67dca95197ac59f215de84d6518170b6 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Tue, 27 Feb 2018 11:28:15 -0500 Subject: Powerpoint writer: use `trim` from Shared Instead of writing my own. --- test/Tests/Writers/OOXML.hs | 2 -- 1 file changed, 2 deletions(-) (limited to 'test') diff --git a/test/Tests/Writers/OOXML.hs b/test/Tests/Writers/OOXML.hs index c2601eec8..bdfdea145 100644 --- a/test/Tests/Writers/OOXML.hs +++ b/test/Tests/Writers/OOXML.hs @@ -33,12 +33,10 @@ compareXMLBool (Elem myElem) (Elem goodElem) = elName myElem == elName goodElem && elAttribs myElem == elAttribs goodElem && and (zipWith compareXMLBool (elContent myElem) (elContent goodElem)) - compareXMLBool (Text myCData) (Text goodCData) = cdVerbatim myCData == cdVerbatim goodCData && cdData myCData == cdData goodCData && cdLine myCData == cdLine goodCData - compareXMLBool (CRef myStr) (CRef goodStr) = myStr == goodStr compareXMLBool _ _ = False -- cgit v1.2.3