Skip to content

Instantly share code, notes, and snippets.

@notogawa

notogawa/gold.hs

Last active December 20, 2015 16:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save notogawa/6162465 to your computer and use it in GitHub Desktop.
Save notogawa/6162465 to your computer and use it in GitHub Desktop.
Download ZIP
gold用
Raw
gold.hs
#!/usr/bin/runhaskell
-- cabal install --with-ld=./gold.hs
import Data.List
import System.Environment
import System.Exit
import System.Process
ignores :: [String]
ignores = [ "--hash-size"
, "--reduce-memory-overheads"
]
main :: IO ()
main = getArgs >>=
rawSystem "/usr/bin/ld.gold" . filter (\arg -> not $ any (`isPrefixOf` arg) ignores) >>=
exitWith
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment