{-# LANGUAGE CPP, ForeignFunctionInterface #-}
-#if __GLASGOW_HASKELL__ < 603
-#include "config.h"
-#else
#include "ghcconfig.h"
-#endif
-----------------------------------------------------------------------------
--
-- (c) The University of Glasgow, 2004
module Main (main) where
-import Paths_runghc
-
import Control.Exception
-import Data.Char
-import Data.List
import Data.Monoid
-import Data.Version
import System.Cmd
import System.Directory
import System.Environment
printVersion :: IO ()
printVersion = do
- putStrLn ("runghc " ++ showVersion version)
+ putStrLn ("runghc " ++ VERSION)
printUsage :: IO ()
printUsage = do