File: get_version.hs

package info (click to toggle)
alex 3.0.1-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 1,008 kB
  • sloc: haskell: 4,029; xml: 1,446; yacc: 235; makefile: 117; ansic: 4
file content (16 lines) | stat: -rw-r--r-- 472 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 

module Main (main) where

import Data.Version ( showVersion )
import Distribution.Package
import Distribution.PackageDescription
import Distribution.PackageDescription.Parse ( readPackageDescription )
import Distribution.Simple.Utils
import Distribution.Verbosity
import Distribution.Version

main :: IO ()
main = do fp <- findPackageDesc "."
          pd <- readPackageDescription normal fp
          putStr $ showVersion $ pkgVersion $ package $ packageDescription pd