LIB: simplify error handling in FileType

We don't have a Failed constructor anymore.

src/HSFM/GUI/Gtk.hs

@@ -52,7 +52,7 @@ main = do
   let mdir = fromMaybe (fromJust $ P.parseAbs "/")
                        (P.parseAbs . headDef "/" $ args)
 
-  file <- catchIOError (rethrowFailed $ readFile getFileInfo mdir) $
+  file <- catchIOError (readFile getFileInfo mdir) $
     \_ -> readFile getFileInfo  . fromJust $ P.parseAbs "/"
 
   _ <- initGUI

src/HSFM/GUI/Gtk/MyView.hs

@@ -301,7 +301,7 @@ refreshView :: MyGUI
              -> MyView
              -> Item
              -> IO ()
-refreshView mygui myview SymLink { sdest = d@Dir{} } =
+refreshView mygui myview SymLink { sdest = Just d@Dir{} } =
   refreshView mygui myview d
 refreshView mygui myview item@Dir{} = do
   newRawModel  <- fileListStore item myview
@@ -351,7 +351,6 @@ constructView mygui myview = do
       dirtreePix FileLike{}      = filePix
       dirtreePix DirSym{}        = folderSymPix
       dirtreePix FileLikeSym{}   = fileSymPix
-      dirtreePix Failed{}        = errorPix
       dirtreePix BrokenSymlink{} = errorPix
       dirtreePix _               = errorPix