Housekeeping

Author: quchen

prettyprinter/test/Testsuite/StripTrailingSpace.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP               #-}
 {-# LANGUAGE OverloadedStrings #-}
 
 module StripTrailingSpace (testStripTrailingSpace) where
@@ -13,6 +14,12 @@ import Data.Text.Prettyprint.Doc.Render.Util.StackMachine
 import Test.Tasty
 import Test.Tasty.HUnit
 
+#if !(APPLICATIVE_MONAD)
+import Control.Applicative
+#endif
+
+
+
 box :: Text -> Text
 box singleLine = unlines'
     [ "┌─" <> T.replicate (T.length singleLine) "─" <> "─┐"
@@ -40,7 +47,7 @@ testStripTrailingSpace = testGroup "Stripping trailing space"
     , testCase "Multiple spaces inside"
                (testStripping ("Multiple spaces" <> "    " <> "inside"))
     , testCase "Whitespace inside text"
-               (testStripping ("Whitespace inside text   "))
+               (testStripping "Whitespace inside text   ")
     , testCase "Indented blank line"
                (testStripping (nest 4 (vcat ["Indented blank line", "", "<end>"])))
     , testCase "Multiple indented blank lines"