Add null pass-through
--HG--
extra : convert_revision : 2868b0bca553b318e1e6a176e3d1a6f42bb33c09
commit3efd79d1193e3fc6ce2e12758c4f0cc9cbb0653f
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 8 Sep 2010, 04:28 (16 years ago)
parent64c35c5
tests/benchmarks/Replace.hs+2
@@ -18,4 +18,6 @@ main = do
1818 (kind : file : pat : sub : _) <- getArgs
1919 case kind of
2020 "lazyText" -> lazyText file pat sub
21+ "lazyTextNull" -> LT.readFile file >>= LT.putStr
2122 "lazyBS" -> lazyBS file pat sub
23+ "lazyBSNull" -> LB.readFile file >>= LB.putStr