isplayVersion :: String
displayVersion = headOr (showVersion v) $ reverse $ versionTags v
  where
    v = CabalPaths.version
    headOr def [] = def
    headOr _ (a:_) = a

-- | Level of output requested from a plush mode.

displayVersion :: String
displayVersion = headOr (showVersion v) $ reverse $ versionTags v
  where
    v = CabalPaths.version
    headOr def [] = def
    headOr _ (a:_) = a

-- | Level of output requested from a plush mode.
displayVersion = headOr (showVersion v) $ reverse $ versionTags v
  where
    v = CabalPaths.version
    headOr def [] = def
    headOr _ (a:_) = a

-- | Level of output requested from a plush mode.