[commit: ghc] master: Remove dead code (ae35b2b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/ae35b2b2b89ffe750f3a8dc32908c11f22227f85/ghc

>---------------------------------------------------------------

commit ae35b2b2b89ffe750f3a8dc32908c11f22227f85
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Mon Aug 27 21:49:00 2018 +0100

    Remove dead code


>---------------------------------------------------------------

ae35b2b2b89ffe750f3a8dc32908c11f22227f85
 src/Packages.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/src/Packages.hs b/src/Packages.hs
index 8a0d150..c4645d4 100644
--- a/src/Packages.hs
+++ b/src/Packages.hs
@@ -12,8 +12,7 @@ module Packages (
 
     -- * Package information
     programName, nonHsMainPackage, autogenPath, programPath, timeoutPath,
-    buildDll0, rtsContext, rtsBuildPath, libffiContext, libffiBuildPath,
-    libffiLibraryName
+    rtsContext, rtsBuildPath, libffiContext, libffiBuildPath, libffiLibraryName
     ) where
 
 import Hadrian.Package
@@ -178,11 +177,6 @@ autogenPath context at Context {..}
   where
     autogen dir = contextPath context <&> (-/- dir -/- "autogen")
 
-buildDll0 :: Context -> Action Bool
-buildDll0 Context {..} = do
-    windows <- windowsHost
-    return $ windows && stage == Stage1 && package == compiler
-
 -- | RTS is considered a Stage1 package.
 rtsContext :: Context
 rtsContext = vanillaContext Stage1 rts