From 0bf516d018f560de136502a36dd2cc798bc51f8c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 6 Dec 2013 13:14:01 -0400
Subject: [PATCH] foo
---
Build/EvilLinker.hs | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs
index b5944bfd8d..978410869e 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