Fix test suite
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 1 Sep 2017 14:07:30 +0000 (15:07 +0100)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 1 Sep 2017 14:07:30 +0000 (15:07 +0100)
Test.hs

diff --git a/Test.hs b/Test.hs
index 3e9cee0..783a599 100644 (file)
--- a/Test.hs
+++ b/Test.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE MagicHash, BangPatterns #-}
+{-# LANGUAGE MagicHash, BangPatterns, CPP #-}
 
 import GHC.Exts
 import GHC.HeapView
@@ -27,7 +27,11 @@ main = do
         unless eq $ fail "Doesn't reference list"
 
     getClosureData args >>= \ cl ->
+#if MIN_VERSION_GLASGOW_HASKELL(8,1,0,0)
+        assertClosureType CONSTR_0_1 (info cl)
+#else
         assertClosureType CONSTR_NOCAF_STATIC (info cl)
+#endif
 
     getClosureData x >>= \ cl ->
         assertClosureType THUNK_2_0 (info cl)