summaryrefslogtreecommitdiff
path: root/lang/ghc/files
diff options
context:
space:
mode:
Diffstat (limited to 'lang/ghc/files')
-rw-r--r--lang/ghc/files/fixup-plist.hs30
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