提交 3cae6cd6 编写于 作者: V Vidar Holen

Allow building on deepseq < 1.4.2.0

上级 74b1745a
...@@ -20,6 +20,7 @@ ...@@ -20,6 +20,7 @@
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE RankNTypes #-} {-# LANGUAGE RankNTypes #-}
{-# LANGUAGE DeriveAnyClass, DeriveGeneric #-} {-# LANGUAGE DeriveAnyClass, DeriveGeneric #-}
{-# LANGUAGE CPP #-}
{- {-
Data Flow Analysis on a Control Flow Graph. Data Flow Analysis on a Control Flow Graph.
...@@ -433,6 +434,13 @@ data StackEntry s = StackEntry { ...@@ -433,6 +434,13 @@ data StackEntry s = StackEntry {
} }
deriving (Eq, Generic, NFData) deriving (Eq, Generic, NFData)
#if MIN_VERSION_deepseq(1,4,2)
-- Our deepseq already has a STRef instance
#else
-- Older deepseq (for GHC < 8) lacks this instance
instance NFData (STRef s a) where
rnf = (`seq` ())
#endif
-- Overwrite a base state with the contents of a diff state -- Overwrite a base state with the contents of a diff state
-- This is unrelated to join/merge. -- This is unrelated to join/merge.
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册