import Outputable
import Pretty ( Mode(..), printDoc )
import Module ( Module )
-import ListSetOps ( removeDupsEq )
+import List ( nub )
import Maybes ( firstJust )
import Directory ( doesFileExist )
; let lints = map cmmLint flat_abstractC
; case firstJust lints of
Just err -> do { printDump err
- ; ghcExit 1
+ ; ghcExit dflags 1
}
Nothing -> return ()
}
ffi_decl_headers
= case foreign_stubs of
NoStubs -> []
- ForeignStubs _ _ fdhs _ -> map unpackFS (fst (removeDupsEq fdhs))
+ ForeignStubs _ _ fdhs _ -> map unpackFS (nub fdhs)
-- Remove duplicates, because distinct foreign import decls
-- may cite the same #include. Order doesn't matter.