LIB/GTK: improve our ViewPatterns/PatternSynonyms + refactor

src/GUI/Gtk/Callbacks.hs

@@ -111,7 +111,7 @@ urlGoTo mygui myview = do
 open :: Row -> MyGUI -> MyView -> IO ()
 open row mygui myview = withErrorDialog $
   case row of
-    SDir r -> do
+    SADir r -> do
       nv <- Data.DirTree.readFile $ fullPath r
       refreshTreeView' mygui myview nv
     r ->