Use TH version CPP token instead of GHC version.

ekmett · Mar 25, 2014 · 92078b0 · 92078b0
1 parent 83c0cae
commit 92078b0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Control/Monad/Free/TH.hs b/src/Control/Monad/Free/TH.hs
@@ -158,7 +158,7 @@ liftCon' f n ns cn ts = do
       qa = case retType of VarT b | a == b -> [a]; _ -> []
       f' = foldl AppT f (map VarT ns)
   return
-#if __GLASGOW_HASKELL__ >= 709
+#if MIN_VERSION_template_haskell(2,10,0)
     [ SigD opName (ForallT q [ConT monadFree `AppT` f' `AppT` VarT m] opType)
 #else
     [ SigD opName (ForallT q [ClassP monadFree [f', VarT m]] opType)