[commit: packages/time] master: improve error reporting in XCode (a4b8812)

git at git.haskell.org git at git.haskell.org
Sun Dec 20 07:50:37 UTC 2015


Repository : ssh://git@git.haskell.org/time

On branch  : master
Link       : http://git.haskell.org/packages/time.git/commitdiff/a4b8812aa30291185aca449117d2bc8141985121

>---------------------------------------------------------------

commit a4b8812aa30291185aca449117d2bc8141985121
Author: Ashley Yakeley <ashley at semantic.org>
Date:   Tue Dec 19 22:49:48 2006 -0800

    improve error reporting in XCode
    
    darcs-hash:20061220064948-ac6dd-e6e4ca06bf1e0a7d15ca9d825a42a6b34775cefc


>---------------------------------------------------------------

a4b8812aa30291185aca449117d2bc8141985121
 time.xcodeproj/cabalbuild   |  5 ++++-
 time.xcodeproj/fixerrormsgs | 10 ++++++++++
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/time.xcodeproj/cabalbuild b/time.xcodeproj/cabalbuild
index 6b4a2d1..2462967 100755
--- a/time.xcodeproj/cabalbuild
+++ b/time.xcodeproj/cabalbuild
@@ -1,5 +1,8 @@
 #!/bin/sh
+{
 case $1 in
 	''		) runghc Setup.hs configure;runghc Setup.hs build ;;
 	*		) runghc Setup.hs $1 ;;
-esac
+esac 2>&1;
+} | ${0/%cabalbuild/}/fixerrormsgs
+exit $PIPESTATUS
diff --git a/time.xcodeproj/fixerrormsgs b/time.xcodeproj/fixerrormsgs
new file mode 100755
index 0000000..ee6d461
--- /dev/null
+++ b/time.xcodeproj/fixerrormsgs
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+$| = 1;
+my $found = false;
+while (<>)
+	{
+	s/^[ 	]*/ / if $found;
+	s/^ Warning:/ warning:/ if $found;
+	$found = s/(^[^ 	][^ 	]*:[0-9][0-9]*:)\n/$1/;
+	print;
+	}



More information about the ghc-commits mailing list