From 25f1620b5186f11b54ee1fd6ae8b642bf3ffd6bc Mon Sep 17 00:00:00 2001
From: Markus Hauck <markus1189@gmail.com>
Date: Sat, 27 Jun 2015 15:17:53 +0200
Subject: [PATCH] Fix dot command

Fixes: #431
---
 src/Stack/Dot.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Stack/Dot.hs b/src/Stack/Dot.hs
index 4caeaafa15..47071ec4eb 100644
--- a/src/Stack/Dot.hs
+++ b/src/Stack/Dot.hs
@@ -51,7 +51,7 @@ dot = do
     $logInfo "splines=polyline;"
 
     F.forM_ locals $ \lp -> do
-        let deps = Set.intersection localNames $ packageAllDeps $ lpPackage lp
+        let deps = packageAllDeps (lpPackage lp) `Set.difference` localNames
         F.forM_ deps $ \dep ->
             $logInfo $ T.concat
                 [ nodeName $ packageName $ lpPackage lp