Merge pull request #215 from maralorn/more-reordering

More reordering

Author: maralorn

lib/NOM/Update/Monad/CacheBuildReports.hs

@@ -122,6 +122,12 @@ saveBuildReports dir reports = catchIO trySave mempty
     createDirectoryIfMissing True dir
     writeFileLBS (dir </> buildReportsFilename) (encodeDefaultOrderedByName . toCSV $ reports)
 
+toCSV :: BuildReportMap -> [BuildReport]
+toCSV = fmap toCSVLine . traverse Map.assocs <=< Map.assocs
+
+toCSVLine :: ((Host, Text), (UTCTime, Int)) -> BuildReport
+toCSVLine ((host, drvName), (endTime, buildSecs)) = BuildReport{..}
+
 loadBuildReports :: FilePath -> IO BuildReportMap
 loadBuildReports dir = catchIO tryLoad mempty
  where
@@ -130,12 +136,6 @@ loadBuildReports dir = catchIO tryLoad mempty
       >>= (toLazy >>> decodeByName >>> either (const $ fail "Could not parse CSV") (pure . snd))
       <&> (toList >>> fromCSV)
 
-toCSV :: BuildReportMap -> [BuildReport]
-toCSV = fmap toCSVLine . traverse Map.assocs <=< Map.assocs
-
-toCSVLine :: ((Host, Text), (UTCTime, Int)) -> BuildReport
-toCSVLine ((host, drvName), (endTime, buildSecs)) = BuildReport{..}
-
 fromCSV :: [BuildReport] -> BuildReportMap
 fromCSV = fmap fromCSVLine >>> Map.fromListWith Map.union