diff options
Diffstat (limited to 'hadrian/src/Rules/Libffi.hs')
| -rw-r--r-- | hadrian/src/Rules/Libffi.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/hadrian/src/Rules/Libffi.hs b/hadrian/src/Rules/Libffi.hs index 860d06b116..c0a27128ca 100644 --- a/hadrian/src/Rules/Libffi.hs +++ b/hadrian/src/Rules/Libffi.hs @@ -75,11 +75,11 @@ needLibffi stage = do libffiContext :: Stage -> Action Context libffiContext stage = do ways <- interpretInContext - (Context stage libffi (error "libffiContext: way not set")) + (Context stage libffi (error "libffiContext: way not set") (error "libffiContext: iplace not set")) getLibraryWays - return . Context stage libffi $ if any (wayUnit Dynamic) ways + return $ (\w -> Context stage libffi w Final) (if any (wayUnit Dynamic) ways then dynamic - else vanilla + else vanilla) -- | The name of the library libffiName :: Expr String |