git.iko.soy/vty
on 00a6a4f help sign in
vty/src/Data/Sequence/Extra.hs
12 lines 295 B history raw
1-- Copyright 2009 Corey O'Connor
2module Data.Sequence.Extra where
4import Data.Sequence
6import Control.Parallel.Strategies
8instance NFData a => NFData (Seq a) where
9 rnf = \v -> rnf' (viewl v)
10 where
11 rnf' EmptyL = ()
12 rnf' (a :< r) = rnf a >| rnf' (viewl r)