diff --git a/Network/Web/Params.hs b/Network/Web/Params.hs
--- a/Network/Web/Params.hs
+++ b/Network/Web/Params.hs
@@ -296,6 +296,7 @@
                 , (".zip",  "application/zip")
                 , (".gz",   appOct)
                 , (".ico",  "image/x-icon")
+                , (".svg",  "image/svg+xml")
                 ]
 
 ----------------------------------------------------------------
diff --git a/Network/Web/URI.hs b/Network/Web/URI.hs
--- a/Network/Web/URI.hs
+++ b/Network/Web/URI.hs
@@ -8,7 +8,7 @@
     URI, uriScheme, uriAuthority, uriPath, uriQuery, uriFragment
   , URIAuth, uriUserInfo, uriRegName, uriPort
   , parseURI
-  , uriHostName, uriPortNumber, toURL, toURLwoPort
+  , uriHostName, uriPortNumber, toURL, toURLwoPort, toURLPath
   , isAbsoluteURI, unEscapeString, unEscapeByteString
   ) where
 
@@ -106,6 +106,14 @@
 -}
 toURLwoPort :: URI -> S.ByteString
 toURLwoPort uri = uriScheme uri +++ "//" +++ uriHostName uri +++ uriPath uri +++ uriQuery uri
+  where
+    (+++) = S.append
+
+{-|
+  Making a URL string from 'URI' without port and parameters.
+-}
+toURLPath :: URI -> S.ByteString
+toURLPath uri = uriScheme uri +++ "//" +++ uriHostName uri +++ uriPath uri
   where
     (+++) = S.append
 
diff --git a/webserver.cabal b/webserver.cabal
--- a/webserver.cabal
+++ b/webserver.cabal
@@ -1,5 +1,5 @@
 Name:                   webserver
-Version:                0.4.2
+Version:                0.4.3
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3