diff --git a/src/Data/Url.hs b/src/Data/Url.hs
--- a/src/Data/Url.hs
+++ b/src/Data/Url.hs
@@ -19,7 +19,7 @@
 
 -- * Classes
 
-class Url b (m :: * -> *) where
+class MonadUrl b (m :: * -> *) where
   pathUrl   :: Path b t
             -> m String
   locUrl    :: Location b t
@@ -28,10 +28,10 @@
                ) => s
                  -> m String
 
-instance ( Url b m
+instance ( MonadUrl b m
          , MonadTrans t
          , Monad m
-         ) => Url b (t m) where
+         ) => MonadUrl b (t m) where
   pathUrl   = lift . pathUrl
   locUrl    = lift . locUrl
   symbolUrl = lift . symbolUrl
@@ -109,7 +109,7 @@
   liftIO = lift . liftIO
 
 instance ( Applicative m
-         ) => Url Rel (RelativeUrlT m) where
+         ) => MonadUrl Rel (RelativeUrlT m) where
   pathUrl x   = pure (toFilePath x)
   locUrl x    = pure (show x)
   symbolUrl x = pure (show (toLocation x))
@@ -150,7 +150,7 @@
   liftIO = lift . liftIO
 
 instance ( Applicative m
-         ) => Url Abs (GroundedUrlT m) where
+         ) => MonadUrl Abs (GroundedUrlT m) where
   pathUrl x   = pure (toFilePath x)
   locUrl x    = pure (show x)
   symbolUrl x = pure (show (toLocation x))
@@ -191,7 +191,7 @@
   liftIO = lift . liftIO
 
 instance ( Applicative m
-         ) => Url Abs (AbsoluteUrlT m) where
+         ) => MonadUrl Abs (AbsoluteUrlT m) where
   pathUrl x   = AbsoluteUrlT (\h -> pure $ show h ++ toFilePath x)
   locUrl x    = AbsoluteUrlT (\h -> pure $ show h ++ show x)
   symbolUrl x = AbsoluteUrlT (\h -> pure $ show h ++ show (toLocation x))
diff --git a/urlpath.cabal b/urlpath.cabal
--- a/urlpath.cabal
+++ b/urlpath.cabal
@@ -1,5 +1,5 @@
 Name:                   urlpath
-Version:                3.0.0
+Version:                3.1.0
 Author:                 Athan Clark <athan.clark@gmail.com>
 Maintainer:             Athan Clark <athan.clark@gmail.com>
 License:                MIT