fedora-repoquery-0.9.1: src/List.hs

module List (
  listVersionsCmd
  ) where

import Data.List.Extra
import Data.Ord (Down(Down))
import SimpleCmd ((+-+))

import BodhiRelease (activeBodhiReleases, BodhiRelease(..))

listVersionsCmd :: IO ()
listVersionsCmd =
  activeBodhiReleases >>= mapM_ printRelease . sortOn releaseSorter
  where
    printRelease rel =
      putStrLn $ show (releaseBranch rel) +-+ releaseState rel

    releaseSorter rel =
      (Down (releaseState rel), Down (releaseBranch rel))