X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FResource.hs;h=a69a2242215c2603ccd6f7c79826df8d21ed21b7;hp=ec143733d5173f0645471c03bdbb0a498eb81aef;hb=7a4f13a3d483c950743e1ced001ade4406d239d3;hpb=e0da4e15d6a4053be720bddf62ae755f1f63ec3b

diff --git a/Rakka/Resource.hs b/Rakka/Resource.hs
index ec14373..a69a224 100644
--- a/Rakka/Resource.hs
+++ b/Rakka/Resource.hs
@@ -10,7 +10,7 @@ import           Control.Monad
 import           Control.Monad.Trans
 import           Network.HTTP.Lucu
 import           Network.HTTP.Lucu.Utils
-import           Network.URI
+import           Network.URI hiding (path)
 import           Text.XML.HXT.Arrow.WriteDocument
 import           Text.XML.HXT.Arrow.XmlIOStateArrow
 import           Text.XML.HXT.DOM.TypeDefs
@@ -73,6 +73,7 @@ outputXmlPage tree toXHTML
          let formatter = case mType of
                            MIMEType "application" "xhtml+xml" _ -> toXHTML
                            MIMEType "text"        "xml"       _ -> this
+                           _                                    -> undefined
          [resultStr] <- liftIO $ runX ( setErrorMsgHandler False fail
                                         >>>
                                         constA tree