-doRegisterInplace :: Verbosity -> IO ()
-doRegisterInplace verbosity =
- do lbi <- getConfig verbosity
- let registerFlags = defaultRegisterFlags { regInPlace = toFlag True }
- pd = localPkgDescr lbi
- pd_reg = if pkgName (package pd) == "ghc-prim"
- then case library pd of
- Just lib ->
- let ems = "GHC.Prim" : exposedModules lib
- lib' = lib { exposedModules = ems }
- in pd { library = Just lib' }
- Nothing ->
- error "Expected a library, but none found"
- else pd
- (regHook simpleUserHooks) pd_reg lbi simpleUserHooks registerFlags
- return ()
-