diff --git a/README b/README
--- a/README
+++ b/README
@@ -12,6 +12,9 @@
 
 Major changes:
 
+0.5.1 -> 0.5.1.1:
+- View pattern support, thanks to Nicolas Frisby.
+
 0.5.0.3 -> 0.5.1:
 - New module Language.Haskell.Meta.Parse.Careful, written by Reiner Pope
   so that ambiguous parses can be rejected instead of quietly done wrong.
diff --git a/haskell-src-meta.cabal b/haskell-src-meta.cabal
--- a/haskell-src-meta.cabal
+++ b/haskell-src-meta.cabal
@@ -1,5 +1,5 @@
 name:               haskell-src-meta
-version:            0.5.1
+version:            0.5.1.1
 cabal-version:      >= 1.6
 build-type:         Simple
 license:            BSD3
@@ -19,7 +19,7 @@
 
 flag new-th
   Description: Build with template-haskell >= 2.7.0
-  Default: True
+  Default: False
 
 library
   build-depends:   base >= 4.2 && < 4.6,
diff --git a/src/Language/Haskell/Meta/Syntax/Translate.hs b/src/Language/Haskell/Meta/Syntax/Translate.hs
--- a/src/Language/Haskell/Meta/Syntax/Translate.hs
+++ b/src/Language/Haskell/Meta/Syntax/Translate.hs
@@ -194,6 +194,9 @@
   toPat (Hs.PWildCard) = WildP
   toPat (Hs.PIrrPat p) = TildeP (toPat p)
   toPat (Hs.PatTypeSig _ p t) = SigP (toPat p) (toType t)
+#if MIN_VERSION_template_haskell(2,5,0)
+  toPat (Hs.PViewPat e p) = ViewP (toExp e) (toPat p)
+#endif
   -- regular pattern
   toPat p@Hs.PRPat{} = noTH "toPat" p
   -- XML stuff
@@ -204,6 +207,7 @@
 #if MIN_VERSION_template_haskell(2,4,0)
   toPat (Hs.PBangPat p) = BangP (toPat p)
 #endif /* MIN_VERSION_template_haskell(2,4,0) */
+  toPat p = todo "toPat" p
 
 -----------------------------------------------------------------------------