diff --git a/Control/DeepSeq.hs b/Control/DeepSeq.hs index b5212cd..b9b04a2 100644 --- a/Control/DeepSeq.hs +++ b/Control/DeepSeq.hs @@ -210,6 +210,7 @@ instance (NFData1 f, GNFData One g) => GNFData One (f :.: g) where grnf args = liftRnf (grnf args) . unComp1 infixr 0 $!! +infixr 0 `deepseq` -- | 'deepseq': fully evaluates the first argument, before returning the -- second. diff --git a/changelog.md b/changelog.md index a39a03b..e258584 100644 --- a/changelog.md +++ b/changelog.md @@ -4,6 +4,8 @@ * Add `GNFData` for URec This will enable deriving NFData instances for unboxed types + * Set `infixr 0` for `deepseq` + Makes infix use of 'deepseq' parse the same way as infix use of 'seq' ## 1.4.4.0 *Sep 2018*