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

Allow building on deepseq < 1.4.2.0

上级 74b1745a
......@@ -20,6 +20,7 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE DeriveAnyClass, DeriveGeneric #-}
{-# LANGUAGE CPP #-}
{-
Data Flow Analysis on a Control Flow Graph.
......@@ -433,6 +434,13 @@ data StackEntry s = StackEntry {
}
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
-- This is unrelated to join/merge.
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册