Allow building on deepseq < 1.4.2.0
This commit is contained in:
parent
74b1745a19
commit
3cae6cd6ab
|
@ -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 {
|
||||||
}
|
}
|
||||||
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.
|
||||||
|
|
Loading…
Reference in New Issue