Ticket #7380: Main.hs

File Main.hs, 890 bytes (added by JeanPhilippeMoresmau, 18 months ago)

Code using the API exhibting the issue

Line 
1module Main where
2
3import DynFlags
4import GHC
5import GHC.Paths ( libdir )
6
7
8
9main::IO()
10main = do
11    let options=["-O2","-fglasgow-exts","-XHaskell98"]
12    let fp="D:/dev/haskell/jp-github/runtime-New_configuration/Fay1/src/Main.hs"
13    let m="Main"
14    let lflags=map noLoc options
15    (_leftovers, _) <- parseStaticFlags lflags
16    runGhc (Just libdir) $ do
17        flg <- getSessionDynFlags
18        (flg', _, _) <- parseDynamicFlags flg _leftovers
19        defaultCleanupHandler flg' $ do
20                setSessionDynFlags flg'  {hscTarget = HscInterpreted, ghcLink = NoLink , ghcMode = CompManager }
21       
22                addTarget Target { targetId = TargetFile fp Nothing, targetAllowObjCode = True, targetContents = Nothing }
23                let howMuch=LoadUpTo $ mkModuleName m
24                load howMuch
25                return ()
26    return()
27