@@ -0,0 +1,12 @@
1+diff -ru orig/Test/Framework/TH/Prime/Parser.hs new/Test/Framework/TH/Prime/Parser.hs
2+--- orig/Test/Framework/TH/Prime/Parser.hs 2013-09-01 16:25:06.353768490 +0300
3++++ new/Test/Framework/TH/Prime/Parser.hs 2013-09-01 16:25:06.000000000 +0300
4+@@ -70,7 +70,7 @@
5+ toStr (Ident str) = str
6+ toStr (Symbol str) = str
7+ opt raw = defaultParseMode {
8+- extensions = nub $ TemplateHaskell : exts raw
9++ extensions = map UnknownExtension $ nub $ "TemplateHaskell" : exts raw
10+ -- to prevent "Ambiguous infix expression"
11+ , fixities = Nothing
12+ }