Commits

dafis committed cf41e49

Adjust default arg

Comments (0)

Files changed (1)

tests/benchmarking/fltDisp.hs

     args <- getArgs
     let k = case args of
               (a:_) -> read a
-              _ -> 20000
+              _ -> 200000
     putStr $ wook k