testsuite/tests/ghc-api/T18181.hs


1
2
3
4
5
6
7
8
9

import GHC
import System.Environment

main = do
  (libdir:_) <- getArgs
  GHC.runGhcT (Just libdir) $ do
    df <- getSessionDynFlags
    setSessionDynFlags $ df { ghcLink = LinkInMemory }
    load LoadAllTargets