From ec81261ec1c8946ebd46473a3f67557dcae061a1 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Sun, 1 May 2005 02:55:25 +0000
Subject: [PATCH] cygwin friendly method for find TOP

---
 configure.ac | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/configure.ac b/configure.ac
index fd987be..d332cd3 100644
--- a/configure.ac
+++ b/configure.ac
@@ -41,8 +41,9 @@ fi
 AC_SUBST(WHOLE_ARCHIVE_FLAG)
 AC_SUBST(LEADING_UNDERSCORE)
 
-
-TOP=`pwd`
+# Find pwd, in a cygwin friendly way. 
+# Suggested by: http://www.haskell.org/ghc/docs/latest/html/users_guide/ch11s04.html
+TOP=`echo "Directory.getCurrentDirectory >>= putStrLn.init.tail.show " | ghci -ignore-dot-ghci -v0`
 AC_SUBST(TOP)
 
 # necessary tools
@@ -83,7 +84,7 @@ AC_SUBST(GHC_VERSION)
 if test -n "$GHC" ; then
  AC_MSG_CHECKING([for value of __GLASGOW_HASKELL__])
  echo "main = print __GLASGOW_HASKELL__" > t.hs
- GLASGOW_HASKELL=`echo 'main' | "$GHC" --interactive -v0 -cpp t.hs`
+ GLASGOW_HASKELL=`echo 'main' | "$GHC" --interactive -ignore-dot-ghci -v0 -cpp t.hs`
  rm t.hs
  AC_MSG_RESULT([$GLASGOW_HASKELL])
 fi