Source

text / tests / EncodingBench.hs

The default branch has multiple heads

Diff from to

tests/EncodingBench.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE ExistentialQuantification #-}
 
 import BenchUtils
 import qualified Data.Text.Utf8.Fusion as U8
      [F $ app1 $ S.foldl' (\a w -> a+1::Int) 0 . U8.stream,
       F $ app2 $ S.foldl' (\a w -> a+1::Int) 0 . S.stream,
       F $ app3 $ S.foldl' (\a w -> a+1::Int) 0 . U32.stream])
- ]
+ ]