GTK: fix opening symlinks that point to directories

2016-05-02 22:13:33 +02:00 · 2016-05-02 22:13:33 +02:00 · 526db2cbb7
commit 526db2cbb7
parent 5670b160d8
1 changed files with 3 additions and 1 deletions
--- a/src/HSFM/GUI/Gtk/MyView.hs
+++ b/src/HSFM/GUI/Gtk/MyView.hs
@ -314,7 +314,9 @@ refreshView' :: MyGUI
             -> MyView
             -> Item
             -> IO ()
-refreshView' mygui myview item@(DirOrSym _) = do
+refreshView' mygui myview SymLink { sdest = d@Dir{} } =
+  refreshView' mygui myview d
+refreshView' mygui myview item@Dir{} = do
  newRawModel  <- fileListStore item myview
  writeTVarIO (rawModel myview) newRawModel