haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-03 18:10:26 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Updated a patch

Browse Source
This commit is contained in:
Michael Snoyman 2013-09-02 08:32:03 +03:00
parent b3b6b28451
commit 04d65069f0
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
patching/patches/test-framework-th-prime-0.0.5.patch
View File

@ -1,12 +1,28 @@
diff -ru orig/Test/Framework/TH/Prime/Parser.hs new/Test/Framework/TH/Prime/Parser.hs 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-01 16:25:06.353768490 +0300 --- orig/Test/Framework/TH/Prime/Parser.hs 2013-09-02 08:29:48.372542031 +0300
+++ new/Test/Framework/TH/Prime/Parser.hs 2013-09-01 16:25:06.000000000 +0300 +++ new/Test/Framework/TH/Prime/Parser.hs 2013-09-02 08:29:48.000000000 +0300
@@ -70,7 +70,7 @@ @@ -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 (Ident str) = str
toStr (Symbol str) = str toStr (Symbol str) = str
opt raw = defaultParseMode { opt raw = defaultParseMode {
- extensions = nub $ TemplateHaskell : exts raw +#if MIN_VERSION_haskell_src_exts(1, 14, 0)
+ extensions = map UnknownExtension $ nub $ "TemplateHaskell" : exts raw + extensions = nub $ EnableExtension TemplateHaskell : exts raw
+#else
extensions = nub $ TemplateHaskell : exts raw
+#endif
-- to prevent "Ambiguous infix expression" -- to prevent "Ambiguous infix expression"
, fixities = Nothing , fixities = Nothing
} }