From 0c13ee0d06edd76fa5c19c46b7b9a3b9fc9889d3 Mon Sep 17 00:00:00 2001
From: Daniel Firth <dan.firth@homotopic.tech>
Date: Tue, 27 Jul 2021 07:39:20 +0200
Subject: [PATCH] Make compatible with ghc 9

---
 src/SDL/Raw/Helper.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/SDL/Raw/Helper.hs b/src/SDL/Raw/Helper.hs
index e901e08..023b7ef 100644
--- a/src/SDL/Raw/Helper.hs
+++ b/src/SDL/Raw/Helper.hs
@@ -9,6 +9,7 @@ inlined MonadIO variant. Use this to simplify the package's SDL.Raw.* modules.
 -}
 
 {-# LANGUAGE BangPatterns    #-}
+{-# LANGUAGE CPP             #-}
 {-# LANGUAGE LambdaCase      #-}
 {-# LANGUAGE TemplateHaskell #-}
 
@@ -78,7 +79,11 @@ liftType = \case
     m <- newName "m"
     return $
       ForallT
+#if MIN_VERSION_template_haskell(2,17,0)
+        [PlainTV m SpecifiedSpec]
+#else
         [PlainTV m]
+#endif
         [AppT (ConT ''MonadIO) $ VarT m]
         (AppT (VarT m) t)
   t -> return t