Add CPP

Author: berberman

plugins/hls-haddock-comments-plugin/hls-haddock-comments-plugin.cabal

@@ -10,7 +10,9 @@ author:             Potato Hatsue
 maintainer:         [email protected]
 category:           Development
 build-type:         Simple
-extra-source-files: LICENSE
+extra-source-files:
+  include/ghc-api-version.h
+  LICENSE
 
 library
   exposed-modules:  Ide.Plugin.HaddockComments

plugins/hls-haddock-comments-plugin/include/ghc-api-version.h

@@ -0,0 +1,10 @@
+#ifndef GHC_API_VERSION_H
+#define GHC_API_VERSION_H
+
+#ifdef GHC_LIB
+#define MIN_GHC_API_VERSION(x,y,z) MIN_VERSION_ghc_lib(x,y,z)
+#else
+#define MIN_GHC_API_VERSION(x,y,z) MIN_VERSION_ghc(x,y,z)
+#endif
+
+#endif

plugins/hls-haddock-comments-plugin/src/Ide/Plugin/HaddockComments.hs

@@ -1,8 +1,11 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE ViewPatterns #-}
 
+#include "ghc-api-version.h"
+
 module Ide.Plugin.HaddockComments where
 
 import Control.Monad (join)
@@ -93,7 +96,11 @@ keyFromTyVar :: Int -> LHsType GhcPs -> [AnnKey]
 keyFromTyVar dep c@(L _ (HsFunTy _ x y))
   | dep <= 1 = mkAnnKey c : (keyFromTyVar (succ dep) x <> keyFromTyVar (succ dep) y)
   | otherwise = []
+#if MIN_GHC_API_VERSION(8,10,0)
 keyFromTyVar dep (L _ (HsForAllTy _ _ _ x)) = keyFromTyVar dep x
+#else
+keyFromTyVar dep (L _ (HsForAllTy _ _ x)) = keyFromTyVar dep x 
+#endif
 keyFromTyVar dep (L _ (HsQualTy _ _ x)) = keyFromTyVar dep x
 keyFromTyVar dep (L _ (HsParTy _ x)) = keyFromTyVar (succ dep) x
 keyFromTyVar dep (L _ (HsBangTy _ _ x)) = keyFromTyVar dep x