diff --git a/bower.json b/bower.json
index 6e3b7c9..52d10e6 100644
--- a/bower.json
+++ b/bower.json
@@ -13,7 +13,7 @@
     "purescript-dom-classy": "^2.1.0",
     "purescript-transformers": "^3.2.0",
     "purescript-control": "^3.0.0",
-    "purescript-uri": "^3.0.0",
+    "purescript-uri": "^4.0.0",
     "purescript-colors": "^3.0.0",
     "purescript-symbols": "^3.0.0",
     "purescript-canvas": "^3.0.0",
diff --git a/example/src/Main.purs b/example/src/Main.purs
index 42d824a..1f8f6c8 100644
--- a/example/src/Main.purs
+++ b/example/src/Main.purs
@@ -50,7 +50,7 @@ mkLatLngs = do
 testURI ∷ URIRef
 testURI =
   Left $ URI.URI
-  (Just $ URI.URIScheme "http")
+  (Just $ URI.Scheme "http")
   (URI.HierarchicalPart
    (Just $ URI.Authority Nothing [(URI.NameAddress "{s}.tile.osm.org") × Nothing])
    (Just $ Right $ rootDir </> dir "{z}" </> dir "{x}" </> file "{y}.png"))
diff --git a/src/Leaflet/Core/Converter.purs b/src/Leaflet/Core/Converter.purs
index 4757679..6ee7e52 100644
--- a/src/Leaflet/Core/Converter.purs
+++ b/src/Leaflet/Core/Converter.purs
@@ -5,7 +5,8 @@ import Prelude
 import Color (Color, toHexString)
 
 import Data.Foldable (intercalate)
-import Data.URI (URIRef, printURIRef)
+import Data.URI (URIRef)
+import Data.URI.URIRef as URIRef
 
 import Leaflet.Core.Types as T
 import Leaflet.Util ((×), (∘))
@@ -24,7 +25,7 @@ type ConvertDict =
 
 converter ∷ ConvertDict
 converter =
-  { printURI: printURIRef
+  { printURI: URIRef.print
   , mkPoint: \(a × b) → [a, b]
   , printColor: toHexString
   , convertLatLng: \{lat, lng} → [lat, lng]