version auto gen.

This commit is contained in:
Kazu Yamamoto 2011-12-26 17:08:00 +09:00
parent 3a47b525fb
commit d08fe8fc8a

View File

@ -2,16 +2,18 @@
module Main where module Main where
import CabalDev (modifyOptions)
import Browse import Browse
import CabalDev (modifyOptions)
import Check import Check
import Control.Applicative import Control.Applicative
import Control.Exception import Control.Exception
import Data.Typeable import Data.Typeable
import Data.Version
import Info import Info
import Lang import Lang
import Lint import Lint
import List import List
import Paths_ghc_mod
import Prelude import Prelude
import System.Console.GetOpt import System.Console.GetOpt
import System.Directory import System.Directory
@ -25,7 +27,7 @@ ghcOptHelp :: String
ghcOptHelp = " [-g GHC_opt1 -g GHC_opt2 ...] " ghcOptHelp = " [-g GHC_opt1 -g GHC_opt2 ...] "
usage :: String usage :: String
usage = "ghc-mod version 1.0.4\n" usage = "ghc-mod version " ++ showVersion version ++ "\n"
++ "Usage:\n" ++ "Usage:\n"
++ "\t ghc-mod list" ++ ghcOptHelp ++ "[-l]\n" ++ "\t ghc-mod list" ++ ghcOptHelp ++ "[-l]\n"
++ "\t ghc-mod lang [-l]\n" ++ "\t ghc-mod lang [-l]\n"