@@ -1,12 +1,28 @@
11diff -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 @@
2+--- orig/Test/Framework/TH/Prime/Parser.hs 2013-09-02 08:29:48.372542031 +0300
3++++ new/Test/Framework/TH/Prime/Parser.hs 2013-09-02 08:29:48.000000000 +0300
4+@@ -1,3 +1,4 @@
5++{-# LANGUAGE CPP #-}
6+ module Test.Framework.TH.Prime.Parser (
7+ unitPropTests
8+ , symbol, string
9+@@ -66,11 +67,19 @@
10+ ParseFailed _ _ ->
11+ []
12+ where
13++#if MIN_VERSION_haskell_src_exts(1, 14, 0)
14++ toExtention = parseExtension . toStr
15++#else
16+ toExtention = read . toStr
17++#endif
518 toStr (Ident str) = str
619 toStr (Symbol str) = str
720 opt raw = defaultParseMode {
8−- extensions = nub $ TemplateHaskell : exts raw
9−+ extensions = map UnknownExtension $ nub $ "TemplateHaskell" : exts raw
21++#if MIN_VERSION_haskell_src_exts(1, 14, 0)
22++ extensions = nub $ EnableExtension TemplateHaskell : exts raw
23++#else
24+ extensions = nub $ TemplateHaskell : exts raw
25++#endif
1026 -- to prevent "Ambiguous infix expression"
1127 , fixities = Nothing
1228 }