Source

text / tests / FusionBench.hs

Diff from to

tests/FusionBench.hs

-import Prelude hiding (zip,zip3,fst,snd)
+import Prelude hiding (zip,zip3)
 
 import BenchUtils
 import Data.Char
           printf " # Text\t\tString\tByteString\n"
           run 1 (ascii_txt,ascii_str,ascii_bs) ascii_tests
 
+trd (a,b,c) = c
+
 ascii_tests =  [
  ("map/map",
   [F $ T.map pred . T.map succ . fst,