diff --git a/src/Data/Url/Types.hs b/src/Data/Url/Types.hs
--- a/src/Data/Url/Types.hs
+++ b/src/Data/Url/Types.hs
@@ -6,12 +6,12 @@
   , FlexibleInstances
   , MultiParamTypeClasses
   , DeriveFunctor
-  , StandaloneDeriving
   #-}
 
 module Data.Url.Types where
 
 import Data.String
+import Data.List
 import Data.Monoid
 import Data.Monoid.Textual (TextualMonoid)
 import Data.Functor.Identity
@@ -58,6 +58,15 @@
 (<&>) (UrlString !t !p) !kv = UrlString t $ p ++ [kv]
 
 infixl 8 <&>
+
+
+fromRoute :: ( TextualMonoid a ) =>
+             ([a], [(a, a)])
+          -> UrlString a
+fromRoute (l,qs) = UrlString (intercalate' "/" l) qs
+  where
+    intercalate' c [s] = s
+    intercalate' c (s:ss) = s <> c <> intercalate' c ss
 
 
 -- | Render the Url String flatly - without anything prepended to the target.
diff --git a/urlpath.cabal b/urlpath.cabal
--- a/urlpath.cabal
+++ b/urlpath.cabal
@@ -1,5 +1,5 @@
 Name:                   urlpath
-Version:                1.0.0
+Version:                1.1.0
 Author:                 Athan Clark <athan.clark@gmail.com>
 Maintainer:             Athan Clark <athan.clark@gmail.com>
 License:                MIT
@@ -99,6 +99,7 @@
                       , mtl
                       , text
                       , transformers
+                      , monoid-subclasses
 
 benchmark bench
   type:                 exitcode-stdio-1.0