From d14caf5269f667ab66e1dd2fab4bc4c1e24798f3 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Wed, 1 Jun 2016 22:26:32 +0200
Subject: [PATCH] GTK: don't allow new-tab middle-click on non-directories

---
 src/HSFM/GUI/Gtk/Callbacks.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/HSFM/GUI/Gtk/Callbacks.hs b/src/HSFM/GUI/Gtk/Callbacks.hs
index 2cab9a3..26d15ef 100644
--- a/src/HSFM/GUI/Gtk/Callbacks.hs
+++ b/src/HSFM/GUI/Gtk/Callbacks.hs
@@ -349,8 +349,9 @@ closeTab mygui myview = do
 
 
 newTabHere :: MyGUI -> Item -> IO ()
-newTabHere mygui item =
+newTabHere mygui item@(DirOrSym _) =
   void $ newTab mygui createTreeView (path item)
+newTabHere _ _ = return ()