diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-28 23:22:28 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-28 23:22:28 +0100 |
| commit | 350b5c4e1915ae0cc61a0c4c4315917b15166303 (patch) | |
| tree | a0e06a9c39d1d5a8c968569843a094d2442dd420 /compiler/ghci/Linker.lhs | |
| parent | a94b80b1b1fa8a24f52a33bb38d1975e52a4037a (diff) | |
| download | haskell-350b5c4e1915ae0cc61a0c4c4315917b15166303.tar.gz | |
Remove some CPP from compiler/ghci/Linker.lhs
Diffstat (limited to 'compiler/ghci/Linker.lhs')
| -rw-r--r-- | compiler/ghci/Linker.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs index 43bb59d132..7a5ca901bc 100644 --- a/compiler/ghci/Linker.lhs +++ b/compiler/ghci/Linker.lhs @@ -355,12 +355,13 @@ users? classifyLdInput :: DynFlags -> FilePath -> IO (Maybe LibrarySpec) classifyLdInput dflags f - | isObjectFilename f = return (Just (Object f)) - | isDynLibFilename f = return (Just (DLLPath f)) + | isObjectFilename platform f = return (Just (Object f)) + | isDynLibFilename platform f = return (Just (DLLPath f)) | otherwise = do log_action dflags dflags SevInfo noSrcSpan defaultUserStyle (text ("Warning: ignoring unrecognised input `" ++ f ++ "'")) return Nothing + where platform = targetPlatform dflags preloadLib :: DynFlags -> [String] -> [String] -> LibrarySpec -> IO () preloadLib dflags lib_paths framework_paths lib_spec |