@@ -48,18 +48,13 @@ writerBench doc (name, writer) = bench (name ++ " writer") $ nf
4848main :: IO ()
4949main = do
5050 args <- getArgs
51+ print args
5152 let matchReader (n, TextReader _) =
52− case args of
53− [] -> True
54− [x] -> x == n
55− (x:y:_) -> x == n && y == "reader"
56− matchReader (_, _) = False
53+ "reader" `elem` args && n `elem` args
54+ matchReader _ = False
5755 let matchWriter (n, TextWriter _) =
58− case args of
59− [] -> True
60− [x] -> x == n
61− (x:y:_) -> x == n && y == "writer"
62− matchWriter (_, _) = False
56+ "writer" `elem` args && n `elem` args
57+ matchWriter _ = False
6358 let matchedReaders = filter matchReader readers
6459 let matchedWriters = filter matchWriter writers
6560 inp <- UTF8.toText <$> B.readFile "test/testsuite.txt"