diff options
Diffstat (limited to 'lang/ghc/files/fixup-plist.hs')
-rw-r--r-- | lang/ghc/files/fixup-plist.hs | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/lang/ghc/files/fixup-plist.hs b/lang/ghc/files/fixup-plist.hs deleted file mode 100644 index 9b6ade1d5aa0..000000000000 --- a/lang/ghc/files/fixup-plist.hs +++ /dev/null @@ -1,30 +0,0 @@ -import Data.List -import System.Environment - -main = do - [pkgplist] <- getArgs - plistLines <- lines <$> readFile pkgplist - mapM (putStrLn . processLine2 . processLine1) plistLines - -processLine1 l - | "%%DYNAMIC%%" `isPrefixOf` l || - "%%PROFILE%%" `isPrefixOf` l || - "%%GMP%%" `isPrefixOf` l || - "%%SIMPLE%%" `isPrefixOf` l = l - - | ".dyn_hi" `isSuffixOf` l || - "/ghc-iserv-dyn" `isSuffixOf` l || - ".so" `isSuffixOf` l = "%%DYNAMIC%%" ++ l - - | ".p_hi" `isSuffixOf` l || - "/ghc-iserv-prof" `isSuffixOf` l || - ".p_o" `isSuffixOf` l || - "_p.a" `isSuffixOf` l = "%%PROFILE%%" ++ l - - | otherwise = l - -processLine2 l - | "%%GMP%%" `isPrefixOf` l || - "%%SIMPLE%%" `isPrefixOf` l = l - | "/libCffi" `isInfixOf` l = "%%NODYNAMIC%%" ++ l - | otherwise = l |