diff options
| -rw-r--r-- | Build/EvilLinker.hs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs index b5944bfd8..978410869 100644 --- a/Build/EvilLinker.hs +++ b/Build/EvilLinker.hs @@ -1,7 +1,6 @@ {- Allows linking haskell programs too big for all the files to fit in a - command line. - - - - Copyright 2013 Joey Hess <joey@kitenet.net> - - Licensed under the GNU GPL version 3 or higher. @@ -12,6 +11,7 @@ module Main where import Data.Maybe import Data.Either import Data.List +import Data.List.Utils import Text.Parsec import Text.Parsec.String import Control.Applicative ((<$>)) @@ -27,7 +27,7 @@ data CmdParams = CmdParams { cmd :: String, opts :: String } {- Find where ghc calls gcc to link the executable. -} parseGhcLink :: Parser CmdParams parseGhcLink = do - many prelinklines + many prelinkline linkheaderline char '"' gcccmd <- many1 (noneOf "\"") @@ -38,14 +38,18 @@ parseGhcLink = do linkheaderline = do string "*** Linker" restOfLine - prelinklines = do + prelinkline = do notFollowedBy linkheaderline restOfLine manglepaths = replace "\\" "/" {- Find where gcc calls collect1. -} parseGccLink :: Parser CmdParams -parseGccLink = error "TODO" +parseGccLink = do + many prelinkline + error "TODO" + where + prelinkline = error "TODO" {- Find where collect1 calls ld. -} parseCollect1 :: Parser CmdParams |