Fix a logic error that kept us from building/linking object files for many ways ...
authorAlp Mestanogullari <alpmestan@gmail.com>
Wed, 12 Sep 2018 21:13:50 +0000 (23:13 +0200)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Wed, 12 Sep 2018 21:13:50 +0000 (23:13 +0200)
src/Rules/Library.hs

index 49a7d22..13f2ea3 100644 (file)
@@ -92,7 +92,7 @@ cObjects :: Context -> Action [FilePath]
 cObjects context = do
     srcs <- interpretInContext context (getPackageData PD.cSrcs)
     objs <- mapM (objectPath context) srcs
-    return $ if way context == threaded
+    return $ if Threaded `wayUnit` way context
         then objs
         else filter ((`notElem` ["Evac_thr", "Scav_thr"]) . takeBaseName) objs