From b783c8c8896ee30094bea99fb6e61edb492335f3 Mon Sep 17 00:00:00 2001
From: "Trevor L. McDonell" <trevor.mcdonell@gmail.com>
Date: Fri, 18 Feb 2022 17:13:09 +0100
Subject: [PATCH] update note about HLS and GHC IDE

---
 src/Data/Array/Accelerate/Debug/Internal/Clock.hs   | 5 ++---
 src/Data/Array/Accelerate/Debug/Internal/Profile.hs | 4 +---
 src/Data/Array/Accelerate/Debug/Internal/Tracy.hs   | 4 +---
 src/Data/Atomic.hs                                  | 4 +---
 4 files changed, 5 insertions(+), 12 deletions(-)

diff --git a/src/Data/Array/Accelerate/Debug/Internal/Clock.hs b/src/Data/Array/Accelerate/Debug/Internal/Clock.hs
index 229f3ac82..0aba7b3df 100644
--- a/src/Data/Array/Accelerate/Debug/Internal/Clock.hs
+++ b/src/Data/Array/Accelerate/Debug/Internal/Clock.hs
@@ -17,10 +17,9 @@ module Data.Array.Accelerate.Debug.Internal.Clock
 
 import Language.Haskell.TH.Syntax
 
--- FIXME: HLS requires stubs because it does not process the
---        'addForeignFilePath' calls when evaluating Template Haskell
+
+-- SEE: [HLS and GHC IDE]
 --
---        https://github.com/haskell/haskell-language-server/issues/365
 #ifndef __GHCIDE__
 
 foreign import ccall unsafe "clock_gettime_monotonic_seconds" getMonotonicTime :: IO Double
diff --git a/src/Data/Array/Accelerate/Debug/Internal/Profile.hs b/src/Data/Array/Accelerate/Debug/Internal/Profile.hs
index b5c17a2dc..bc72f0fbd 100644
--- a/src/Data/Array/Accelerate/Debug/Internal/Profile.hs
+++ b/src/Data/Array/Accelerate/Debug/Internal/Profile.hs
@@ -144,10 +144,8 @@ emit_remote_gc = void $ Atomic.add __num_remote_gcs 1
 -- Monitoring variables
 -- --------------------
 
--- FIXME: HLS requires stubs because it does not process the
---        'addForeignFilePath' calls when evaluating Template Haskell
+-- SEE: [HLS and GHC IDE]
 --
---        https://github.com/haskell/haskell-language-server/issues/365
 #ifndef __GHCIDE__
 
 foreign import ccall "&__total_bytes_allocated_local"     __total_bytes_allocated_local     :: Atomic -- bytes allocated in the local (CPU) memory space
diff --git a/src/Data/Array/Accelerate/Debug/Internal/Tracy.hs b/src/Data/Array/Accelerate/Debug/Internal/Tracy.hs
index cfe9dc1b2..57afcd3e8 100644
--- a/src/Data/Array/Accelerate/Debug/Internal/Tracy.hs
+++ b/src/Data/Array/Accelerate/Debug/Internal/Tracy.hs
@@ -27,10 +27,8 @@ import Language.Haskell.TH.Syntax
 type Zone   = Word64
 type SrcLoc = Word64
 
--- FIXME: HLS requires stubs because it does not process the
---        'addForeignFilePath' calls when evaluating Template Haskell
+-- SEE: [HLS and GHC IDE]
 --
---        https://github.com/haskell/haskell-language-server/issues/365
 #if defined(ACCELERATE_DEBUG) && !defined(__GHCIDE__)
 
 foreign import ccall unsafe "___tracy_init_thread" init_thread :: IO ()
diff --git a/src/Data/Atomic.hs b/src/Data/Atomic.hs
index 2e1639d86..386dcea87 100644
--- a/src/Data/Atomic.hs
+++ b/src/Data/Atomic.hs
@@ -50,10 +50,8 @@ newtype Atomic = Atomic ( Ptr Int64 )
 --   write a v
 --   return a
 
--- FIXME: HLS requires stubs because it does not process the
---        'addForeignFilePath' calls when evaluating Template Haskell
+-- SEE: [HLS and GHC IDE]
 --
---        https://github.com/haskell/haskell-language-server/issues/365
 #ifndef __GHCIDE__
 
 -- | Get the current value.