Commits

Bryan O'Sullivan  committed 28c0088

Add null pass-through

  • Participants
  • Parent commits f4e3b09

Comments (0)

Files changed (1)

File tests/benchmarks/Replace.hs

   (kind : file : pat : sub : _) <- getArgs
   case kind of
     "lazyText" -> lazyText file pat sub
+    "lazyTextNull" -> LT.readFile file >>= LT.putStr
     "lazyBS" -> lazyBS file pat sub
+    "lazyBSNull" -> LB.readFile file >>= LB.putStr