@@ -18,4 +18,6 @@ main = do
18 (kind : file : pat : sub : _) <- getArgs
18 (kind : file : pat : sub : _) <- getArgs
19 case kind of
19 case kind of
20 "lazyText" -> lazyText file pat sub
20 "lazyText" -> lazyText file pat sub
21+ "lazyTextNull" -> LT.readFile file >>= LT.putStr
21 "lazyBS" -> lazyBS file pat sub
22 "lazyBS" -> lazyBS file pat sub
23+ "lazyBSNull" -> LB.readFile file >>= LB.putStr