module List (
  listVersionsCmd
  ) where

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

import ShowRelease (activeFedoraReleases, BodhiRelease(..))

listVersionsCmd :: IO ()
listVersionsCmd =
  activeFedoraReleases >>= mapM_ printRelease . sortOn releaseState
  where
    printRelease (Release _version state branch) =
      putStrLn $ branch +-+ state