diff --git a/src/Data/Url.hs b/src/Data/Url.hs
--- a/src/Data/Url.hs
+++ b/src/Data/Url.hs
@@ -44,6 +44,11 @@
                ) => s
                  -> m String
 
+instance MonadUrl b IO where
+  pathUrl   = pure . toFilePath
+  locUrl    = pure . show
+  symbolUrl = pure . show . toLocation
+
 instance ( MonadUrl b m
          , Monad m
          ) => MonadUrl b (MaybeT m) where
diff --git a/urlpath.cabal b/urlpath.cabal
--- a/urlpath.cabal
+++ b/urlpath.cabal
@@ -1,5 +1,5 @@
 Name:                   urlpath
-Version:                3.2.1
+Version:                3.2.1.1
 Author:                 Athan Clark <athan.clark@gmail.com>
 Maintainer:             Athan Clark <athan.clark@gmail.com>
 License:                MIT