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
@@ -71,9 +71,11 @@
 isPatBind _                   = False
 
 fromPatBind :: Decl -> String
-fromPatBind (PatBind _ (PVar (Ident name)) _ _ _) = name
+fromPatBind (PatBind _ (PVar (Ident  name)) _ _ _) = name
+fromPatBind (PatBind _ (PVar (Symbol name)) _ _ _) = name
 fromPatBind _ = error "fromPatBind"
 
 fromFunBind :: Decl -> String
-fromFunBind (FunBind (Match _ (Ident name) _ _ _ _:_)) = name
+fromFunBind (FunBind (Match _ (Ident  name) _ _ _ _:_)) = name
+fromFunBind (FunBind (Match _ (Symbol name) _ _ _ _:_)) = name
 fromFunBind _ = error "fromFunBind"
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.2
+Version:                0.0.3
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3