X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FPackages.lhs;fp=compiler%2Fmain%2FPackages.lhs;h=e9108e7bb8ac5c97ff466cf0537bb0f03165eabd;hp=4c22b34108c96c7ff98bd056feb2307968fd4539;hb=f3795c06370ed317957028027e4d18682bfeb447;hpb=5205edda3f16a6e93e5e0749f3dcb3f7831a317e

diff --git a/compiler/main/Packages.lhs b/compiler/main/Packages.lhs
index 4c22b34..e9108e7 100644
--- a/compiler/main/Packages.lhs
+++ b/compiler/main/Packages.lhs
@@ -808,9 +808,9 @@ packageHsLibs dflags p = map (mkDynName . addSuffix) (hsLibraries p)
         -- the name of a shared library is libHSfoo-ghc<version>.so
         -- we leave out the _dyn, because it is superfluous
 
-        -- debug RTS includes support for -ticky and -eventlog
+        -- debug RTS includes support for -eventlog
         ways2 | WayDebug `elem` map wayName ways1 
-              = filter ((`notElem` [WayTicky,WayEventLog]) . wayName) ways1
+              = filter ((/= WayEventLog) . wayName) ways1
               | otherwise
               = ways1