stackage/patching/patches/test-framework-th-prime-0.0.5.patch
2013-09-02 08:32:03 +03:00

29 lines
950 B
Diff

diff -ru orig/Test/Framework/TH/Prime/Parser.hs new/Test/Framework/TH/Prime/Parser.hs
--- orig/Test/Framework/TH/Prime/Parser.hs 2013-09-02 08:29:48.372542031 +0300
+++ new/Test/Framework/TH/Prime/Parser.hs 2013-09-02 08:29:48.000000000 +0300
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
module Test.Framework.TH.Prime.Parser (
unitPropTests
, symbol, string
@@ -66,11 +67,19 @@
ParseFailed _ _ ->
[]
where
+#if MIN_VERSION_haskell_src_exts(1, 14, 0)
+ toExtention = parseExtension . toStr
+#else
toExtention = read . toStr
+#endif
toStr (Ident str) = str
toStr (Symbol str) = str
opt raw = defaultParseMode {
+#if MIN_VERSION_haskell_src_exts(1, 14, 0)
+ extensions = nub $ EnableExtension TemplateHaskell : exts raw
+#else
extensions = nub $ TemplateHaskell : exts raw
+#endif
-- to prevent "Ambiguous infix expression"
, fixities = Nothing
}