X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResource%2FTree.hs;h=de19e0470deb3f4951080895998939df1e5294c1;hb=0b39e041a86e883b60096fe08f202798cc69f4eb;hp=40a4150dc9fe1694cee60f55703f257c10032a0c;hpb=1196f43ecedbb123515065f0440844864af906fb;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Resource/Tree.hs b/Network/HTTP/Lucu/Resource/Tree.hs
index 40a4150..de19e04 100644
--- a/Network/HTTP/Lucu/Resource/Tree.hs
+++ b/Network/HTTP/Lucu/Resource/Tree.hs
@@ -32,7 +32,6 @@ import           Network.HTTP.Lucu.Interaction
 import           Network.HTTP.Lucu.Utils
 import           Network.URI hiding (path)
 import           System.IO
-import           System.IO.Error hiding (catch)
 import           Prelude hiding (catch)
 
 
@@ -261,9 +260,3 @@ runResource def itr
                             $ hPutStrLn stderr $ show abo
 
                flip runRes itr $ driftTo Done
-
-      formatIOE :: IOError -> String
-      formatIOE ioE = if isUserError ioE then
-                          ioeGetErrorString ioE
-                      else
-                          show ioE