Try quick 8.6.5 fix

bitemyapp · Oct 24, 2023 · de50196 · de50196
1 parent 2356923
commit de50196
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Database/Esqueleto/Record.hs b/src/Database/Esqueleto/Record.hs
@@ -757,7 +757,11 @@ toMaybeTDec RecordInfo {..} = do
   let binders = Nothing
       lhs = (ConT ''ToMaybeT) `AppT` (ConT sqlName)
       rhs = ConT sqlMaybeName
+#if MIN_VERSION_template_haskell(2,15,0)
   pure $ TySynInstD $ TySynEqn binders lhs rhs
+#else
+  pure $ TySynInstD $ TySynEqn lhs rhs
+#endif
 
 -- | Generates a `toMaybe value = ...` declaration for the given record.
 toMaybeDec :: RecordInfo -> Q Dec