LIB/GTK: refactor ViewPatterns/PatternSynonyms

2015-12-26 22:00:08 +01:00
parent 83816ef1a6
commit 400a0242d6
4 changed files with 95 additions and 54 deletions
--- a/src/GUI/Gtk/Callbacks.hs
+++ b/src/GUI/Gtk/Callbacks.hs
@@ -188,7 +188,7 @@ urlGoTo mygui myview = withErrorDialog $ do
 open :: Row -> MyGUI -> MyView -> IO ()
 open row mygui myview = withErrorDialog $
  case row of
-    SADir r -> do
+    ADirOrSym r -> do
      nv <- Data.DirTree.readFile $ fullPath r
      refreshTreeView' mygui myview nv
    r ->