blob: e4e829e3f2c72cb600bf44d691fa3d7833d85f8c (
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 fp <- findPackageDesc "."
pd <- readPackageDescription normal fp
putStr $ showVersion $ pkgVersion $ package $ packageDescription pd
|
