diff options
Diffstat (limited to 'users/glittershark/xanthous/src/Xanthous/Orphans.hs')
| -rw-r--r-- | users/glittershark/xanthous/src/Xanthous/Orphans.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/users/glittershark/xanthous/src/Xanthous/Orphans.hs b/users/glittershark/xanthous/src/Xanthous/Orphans.hs index 8e82c372b2..39821150ef 100644 --- a/users/glittershark/xanthous/src/Xanthous/Orphans.hs +++ b/users/glittershark/xanthous/src/Xanthous/Orphans.hs @@ -304,16 +304,9 @@ instance forall t name. (NFData t, Monoid t, NFData name) => NFData (Editor t name) where rnf ed = getName @_ @name ed `deepseq` getEditContents ed `deepseq` () -instance NFData StdGen where - -- StdGen's fields are bang-patterned so this is actually correct! - rnf sg = sg `seq` () - deriving via (ReadShowJSON StdGen) instance ToJSON StdGen deriving via (ReadShowJSON StdGen) instance FromJSON StdGen -instance Function StdGen where - function = functionShow - -------------------------------------------------------------------------------- instance CoArbitrary a => CoArbitrary (NonNull a) where |