Fix testsuite
authorDavid Terei <code@davidterei.com>
Thu, 2 Jun 2016 04:17:22 +0000 (21:17 -0700)
committerDavid Terei <code@davidterei.com>
Thu, 2 Jun 2016 04:17:22 +0000 (21:17 -0700)
src/Text/PrettyPrint/Annotated/HughesPJ.hs

index dc2133a..77a59c2 100644 (file)
@@ -262,7 +262,11 @@ data TextDetails = Chr  {-# UNPACK #-} !Char -- ^ A single Char fragment
 -- Combining @Doc@ values
 #if __GLASGOW_HASKELL__ >= 800
 instance Semi.Semigroup (Doc a) where
+#ifndef TESTING
     (<>) = (Text.PrettyPrint.Annotated.HughesPJ.<>)
+#else
+    (<>) = (PrettyTestVersion.<>)
+#endif
 
 instance Monoid (Doc a) where
     mempty  = empty