Remove dead code
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 27 Aug 2018 20:49:00 +0000 (21:49 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 27 Aug 2018 20:49:00 +0000 (21:49 +0100)
src/Packages.hs

index 8a0d150..c4645d4 100644 (file)
@@ -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@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