From d1487e87d786983dbdcdb389b665df58265e34d0 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Fri, 23 Oct 2009 18:15:21 +0000
Subject: [PATCH] Add a test to the unpulled patches in darcs-all

---
 darcs-all |   15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/darcs-all b/darcs-all
index 2792481..9defa0c 100644
--- a/darcs-all
+++ b/darcs-all
@@ -295,6 +295,21 @@ version of bytestring will be used from a tarball instead.
 EOF
         }
     }
+
+    message "== Checking for unpulled tarball patches";
+    if ((system "darcs annotate --match 'hash 20090930200358-3fd76-cab3bf4a0a9e3902eb6dd41f71712ad3a6a9bcd1' > /dev/null 2> /dev/null") == 0) {
+        print <<EOF;
+============================
+ATTENTION!
+
+You have the unpulled tarball patches in your GHC tree!
+
+Please remove them:
+    darcs unpull -p "Use mingw tarballs to get mingw on Windows"
+and say yes to each patch.
+============================
+EOF
+    }
 }
 
 main(@ARGV);
-- 
1.7.10.4