blob: 00b9c81b44c4f9f897c5becc90ae7219d5195951 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
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 Right fp <- findPackageDesc "."
pd <- readPackageDescription normal fp
putStr $ showVersion $ pkgVersion $ package $ packageDescription pd
|
