diff --git a/patching/patches/test-framework-th-prime-0.0.5.patch b/patching/patches/test-framework-th-prime-0.0.5.patch
index 298c64ad..de0ba01e 100644
--- a/patching/patches/test-framework-th-prime-0.0.5.patch
+++ b/patching/patches/test-framework-th-prime-0.0.5.patch
@@ -1,12 +1,28 @@
 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
-+++ new/Test/Framework/TH/Prime/Parser.hs	2013-09-01 16:25:06.000000000 +0300
-@@ -70,7 +70,7 @@
+--- 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 {
--        extensions = nub $ TemplateHaskell : exts raw
-+        extensions = map UnknownExtension $ nub $ "TemplateHaskell" : exts raw
++#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
        }