Fix ExposePackage definition

Author: fendor

haskell-debugger/GHC/Debugger/Session.hs

@@ -156,7 +156,7 @@ createUnitEnvFromFlags initialDynFlags unitDflags = do
           , importPaths = []
           , packageFlags =
               [ ExposePackage
-                  ("-package-id " ++ unitIdString unitId)
+                  (unitIdString unitId)
                   (UnitIdArg $ RealUnit (Definite unitId))
                   (ModRenaming True [])
               | (unitId, _) <- unitEnvList

haskell-debugger/GHC/Debugger/Session/Builtin.hs

@@ -100,7 +100,7 @@ addInMemoryHsDebuggerViewUnit base_uids initialDynFlags = do
         , importPaths = []
         , packageFlags =
           [ ExposePackage
-                  ("-package-id " ++ unitIdString unitId)
+                  (unitIdString unitId)
                   (UnitIdArg $ RealUnit (Definite unitId))
                   (ModRenaming True [])
           | unitId <- base_uids