diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+## MMark Ext 0.0.1.2
+
+* Compiles with `modern-uri-0.2.0.0` and later.
+
 ## MMark Ext 0.0.1.1
 
 * Fixed test suite failure with newer MMark versions. This version is to be
diff --git a/LICENSE.md b/LICENSE.md
--- a/LICENSE.md
+++ b/LICENSE.md
@@ -1,4 +1,4 @@
-Copyright © 2017 Mark Karpov
+Copyright © 2017–2018 Mark Karpov
 
 All rights reserved.
 
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -19,6 +19,6 @@
 
 ## License
 
-Copyright © 2017 Mark Karpov
+Copyright © 2017–2018 Mark Karpov
 
 Distributed under BSD 3 clause license.
diff --git a/Text/MMark/Extension/Common.hs b/Text/MMark/Extension/Common.hs
--- a/Text/MMark/Extension/Common.hs
+++ b/Text/MMark/Extension/Common.hs
@@ -1,6 +1,6 @@
 -- |
 -- Module      :  Text.MMark.Extension.Common
--- Copyright   :  © 2017 Mark Karpov
+-- Copyright   :  © 2017–2018 Mark Karpov
 -- License     :  BSD 3 clause
 --
 -- Maintainer  :  Mark Karpov <markkarpov92@gmail.com>
@@ -74,9 +74,11 @@
 import Data.Text (Text)
 import Data.Typeable (Typeable)
 import GHC.Generics
+import Lens.Micro ((^.))
 import Lucid
 import Text.MMark
 import Text.MMark.Extension (Bni, Block (..), Inline (..))
+import Text.URI.Lens (uriPath)
 import qualified Control.Foldl        as L
 import qualified Data.List.NonEmpty   as NE
 import qualified Data.Text            as T
@@ -257,7 +259,7 @@
   case inline of
     l@(Link _ fa _) ->
       if URI.uriScheme fa == URI.mkScheme "fa"
-        then case URI.uriPath fa of
+        then case fa ^. uriPath of
                [] -> old l
                xs ->
                  let g x = "fa-" <> URI.unRText x
diff --git a/mmark-ext.cabal b/mmark-ext.cabal
--- a/mmark-ext.cabal
+++ b/mmark-ext.cabal
@@ -1,5 +1,5 @@
 name:                 mmark-ext
-version:              0.0.1.1
+version:              0.0.1.2
 cabal-version:        >= 1.18
 tested-with:          GHC==7.10.3, GHC==8.0.2, GHC==8.2.2
 license:              BSD3
@@ -31,8 +31,9 @@
                     , data-default-class
                     , foldl            >= 1.2   && < 1.4
                     , lucid            >= 2.6   && < 3.0
+                    , microlens        >= 0.4   && < 0.5
                     , mmark            >= 0.0.2 && <= 0.1
-                    , modern-uri       >= 0.1.1 && < 0.2
+                    , modern-uri       >= 0.1.1 && < 0.3
                     , text             >= 0.2   && < 1.3
   if !impl(ghc >= 8.0)
     build-depends:    semigroups       == 0.18.*