sortOn startTime program

DKISTDC · Dec 12, 2024 · a3b5529 · a3b5529
1 parent f75fc89
commit a3b5529
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/NSO/Data/Programs.hs b/src/NSO/Data/Programs.hs
@@ -46,7 +46,9 @@ fromDatasets ai ds =
   let gds = grouped (.instrumentProgramId) ds :: [Grouped InstrumentProgram Dataset]
       pvs = fmap (programInversions ai) gds :: [[Inversion]]
       ips = zipWith instrumentProgramStatus gds pvs
-   in zipWith3 ProgramFamily ips gds pvs
+   in sortOn startTime $ zipWith3 ProgramFamily ips gds pvs
+ where
+  startTime pf = pf.program.program.startTime
 
 
 -- | All inversions for the given program