Fix tests for GHC < 9

Reviewed By: helfper Differential Revision: D62024746 fbshipit-source-id: 00d3a7657295307bdcfd5fe91d6472412a8f6c7a
facebookincubator · Aug 30, 2024 · 424f99b · 424f99b
1 parent 0c39a98
commit 424f99b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/common/util/tests/JSONPrettyTest.hs b/common/util/tests/JSONPrettyTest.hs
@@ -12,7 +12,7 @@ module JSONPrettyTest (main) where
 
 import qualified Data.Aeson as Aeson
 import qualified Data.ByteString.Lazy.Char8 as B
-import Prettyprinter as Pretty hiding ((<>))
+import Compat.Prettyprinter as Pretty hiding ((<>))
 import Text.JSON
 
 import Test.HUnit

diff --git a/common/util/tests/ToExpTest.hs b/common/util/tests/ToExpTest.hs
@@ -6,6 +6,7 @@
   LICENSE file in the root directory of this source tree.
 -}
 
+{-# LANGUAGE CPP #-}
 module ToExpTest where
 
 import Test.HUnit
@@ -44,7 +45,11 @@ tests = TestList
         -- the result is non-deterministic. Rather than add the
         -- overhead of sorting the elements all the time, let's just
         -- sort the test output.
+#if MIN_VERSION_aeson(2,0,0)
         (sort "Object (fromList [(fromText \"foo\", Number (-3)), (fromText \"bar\", Bool True)])")
+#else
+        (sort "Object (HashMap.fromList [(\"foo\", Number (-3)), (\"bar\", Bool True)])")
+#endif
         (sort $ pp $ object
           [ "foo" .= Number (-3)
           , "bar" .= Bool True