@@ -67,7 +67,7 @@ readLTSHaskell dirPath = do
67readStackageNightly :: FilePath -> IO Snapshot
67readStackageNightly :: FilePath -> IO Snapshot
68readStackageNightly dirPath = do
68readStackageNightly dirPath = do
69 filePaths <- liftIO (listFiles dirPath)
69 filePaths <- liftIO (listFiles dirPath)
70− let filePath = last (sort [ p | p <- filePaths, takeExtension p == ".yaml" ])
70+ let filePath = maximum [ p | p <- filePaths, takeExtension p == ".yaml" ]
71 readSnapshot (dirPath </> filePath)
71 readSnapshot (dirPath </> filePath)
73readSnapshot :: FilePath -> IO Snapshot
73readSnapshot :: FilePath -> IO Snapshot