@@ -18,6 +18,7 @@ import Data.Attoparsec.ByteString.Char8 (Parser, char, endOfInput, scientific,
1818import Data.Bits ((.|.), shiftL)
1919import Data.ByteString (ByteString)
2020import Data.Char (chr)
21+import Data.List (sort)
2122import Data.Monoid (mappend, mempty)
2223import Data.Text (Text)
2324import Data.Text.Encoding (decodeUtf8')
@@ -311,7 +312,7 @@ toByteString = L.toStrict . toLazyByteString
311312aeson :: IO Benchmark
312313aeson = do
313314 let path = "json-data"
314− names <- filter (`notElem` [".", ".."]) <$> getDirectoryContents path
315+ names <- sort . filter (`notElem` [".", ".."]) <$> getDirectoryContents path
315316 benches <- forM names $ \name -> do
316317 bs <- B.readFile (path </> name)
317318 return . bench (dropExtension name) $ nf (A.parseOnly jsonEOF') bs