diff --git a/Test/Framework/TH/Prime/Parser.hs b/Test/Framework/TH/Prime/Parser.hs
--- a/Test/Framework/TH/Prime/Parser.hs
+++ b/Test/Framework/TH/Prime/Parser.hs
@@ -91,12 +91,17 @@
 isFunBind _           = False
 
 isPatBind :: Decl -> Bool
-isPatBind (PatBind _ _ _ _ _) = True
+isPatBind PatBind{} = True
 isPatBind _                   = False
 
 fromPatBind :: Decl -> String
+#if MIN_VERSION_haskell_src_exts(1, 16, 0)
+fromPatBind (PatBind _ (PVar (Ident  name)) _ _) = name
+fromPatBind (PatBind _ (PVar (Symbol name)) _ _) = name
+#else
 fromPatBind (PatBind _ (PVar (Ident  name)) _ _ _) = name
 fromPatBind (PatBind _ (PVar (Symbol name)) _ _ _) = name
+#endif
 fromPatBind _ = error "fromPatBind"
 
 fromFunBind :: Decl -> String
diff --git a/test-framework-th-prime.cabal b/test-framework-th-prime.cabal
--- a/test-framework-th-prime.cabal
+++ b/test-framework-th-prime.cabal
@@ -1,5 +1,5 @@
 Name:                   test-framework-th-prime
-Version:                0.0.6
+Version:                0.0.7
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3