GHC compile

gistfile1.txt

import GHC
import GHC.Paths ( libdir )
import DynFlags
import Linker
import Module
import Outputable
import  Control.Monad.IO.Class

targetFile = "Test.hs"

main :: IO ()
main = do
   res <- example
   return ()

example = 
    defaultErrorHandler defaultFatalMessager defaultFlushOut $ do
      runGhc (Just libdir) $ do
        {-
        liftIO $ print "x"
        let dflags2 = dflags { ghcLink   = LinkBinary
                             , hscTarget = HscAsm
                             }
        liftIO $ print  "x"
        let dflags' = foldl xopt_set dflags2
                            [Opt_Cpp, Opt_ImplicitPrelude, Opt_MagicHash]
        liftIO $ print  "x"
        setSessionDynFlags dflags'
        liftIO $ print "gusesing"
        -}
        dflags <- getSessionDynFlags
        (dflags, _, _) <- parseDynamicFlags dflags []
        setSessionDynFlags dflags{ghcMode=OneShot, hscTarget = HscAsm, ghcLink=LinkBinary} -- , verbosity=3}
        setTargets [Target (TargetFile "Test.hs" Nothing) True Nothing]
        load LoadAllTargets

shw (TargetModule x) = "Module " ++ "x"
shw (TargetFile x y) = "TargetFile " ++ show x ++ " " ++ show y