diff --git a/dhall-docs/src/Dhall/Docs/Comment.hs b/dhall-docs/src/Dhall/Docs/Comment.hs
index 20fa1f553..7bab3889c 100644
--- a/dhall-docs/src/Dhall/Docs/Comment.hs
+++ b/dhall-docs/src/Dhall/Docs/Comment.hs
@@ -189,7 +189,7 @@ parseDhallDocsText (BlockComment blockComment) =
         Just e -> DhallDocsText e
   where
     joinedText = Data.Text.strip $ Data.Text.unlines reIndentedLines
-    (_ : commentLines) = Data.Text.lines blockComment
+    commentLines = tail $ Data.Text.lines blockComment
 
     leadingSpaces = Data.Text.takeWhile isSpace
         where
diff --git a/dhall/dhall.cabal b/dhall/dhall.cabal
index c70413900..53a924f16 100644
--- a/dhall/dhall.cabal
+++ b/dhall/dhall.cabal
@@ -511,7 +511,7 @@ Library
         repline                     >= 0.4.0.0  && < 0.5 ,
         serialise                   >= 0.2.0.0  && < 0.3 ,
         scientific                  >= 0.3.0.0  && < 0.4 ,
-        template-haskell            >= 2.13.0.0 && < 2.18,
+        template-haskell            >= 2.13.0.0 && < 2.19,
         text                        >= 0.11.1.0 && < 1.3 ,
         text-manipulate             >= 0.2.0.1  && < 0.4 ,
         th-lift-instances           >= 0.1.13   && < 0.2 ,