module BNFC.Options.Version ( version ) where

import Prelude      ( ($), String, map, show )

import Data.List    ( intercalate )
import Data.Version ( Version(versionBranch) )

import qualified Paths_BNFC3 as Paths

-- | The program version obtained from the cabal file.

version :: String
version :: String
version = String -> [String] -> String
forall a. [a] -> [[a]] -> [a]
intercalate String
"." ([String] -> String) -> [String] -> String
forall a b. (a -> b) -> a -> b
$ (Int -> String) -> [Int] -> [String]
forall a b. (a -> b) -> [a] -> [b]
map Int -> String
forall a. Show a => a -> String
show ([Int] -> [String]) -> [Int] -> [String]
forall a b. (a -> b) -> a -> b
$ Version -> [Int]
versionBranch Version
Paths.version