[nongnu] elpa/haskell-tng-mode f648cf9 212/385: fallback to current directory (e.g. for cabal scripts)

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit f648cf9db4212985fd2a7149c128d5de742f8964
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>

    fallback to current directory (e.g. for cabal scripts)
---
 haskell-tng-compile.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/haskell-tng-compile.el b/haskell-tng-compile.el
index e83e482..e06e69f 100644
--- a/haskell-tng-compile.el
+++ b/haskell-tng-compile.el
@@ -101,9 +101,11 @@ will cause the subsequent call to prompt."
     (setq haskell-tng--compile-command
           (unless (equal command haskell-tng--compile-alt) command))
 
-    (when-let (default-directory
-                (haskell-tng--util-locate-dominating-file
-                 haskell-tng--compile-dominating-file))
+    (let ((default-directory
+            (or
+             (haskell-tng--util-locate-dominating-file
+              haskell-tng--compile-dominating-file)
+             default-directory)))
       (compilation-start
        command
        'haskell-tng-compilation-mode