From 236a9161cfd08404c3f4706ff6072ab2c6c968cc Mon Sep 17 00:00:00 2001
From: Jakub Janaszkiewicz <janaszkiewicz.jakub@gmail.com>
Date: Tue, 27 Aug 2024 22:48:54 +0200
Subject: [PATCH] Fix build errors on Windows

---
 src/Raise/CodeLens.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/Raise/CodeLens.hs b/src/Raise/CodeLens.hs
index 6399cca..40f454f 100644
--- a/src/Raise/CodeLens.hs
+++ b/src/Raise/CodeLens.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE CPP #-}
+
 module Raise.CodeLens (
     registerLenses
 ) where
@@ -27,6 +29,9 @@ cmdList = [ ("Typecheck", "raise.typeCheck")
 registerLenses :: LspM () ()
 registerLenses = do
   let rsp = map (uncurry registerCommand) cmdList
-  _ <- registerCapability SMethod_TextDocumentCodeLens regOpts $ \_ responder -> do
-    responder (Right (InL rsp))
+  #ifdef mingw32_HOST_OS
+  _ <- registerCapability mempty SMethod_TextDocumentCodeLens regOpts $ \_ responder -> responder (Right (InL rsp))
+  #else
+  _ <- registerCapability SMethod_TextDocumentCodeLens regOpts $ \_ responder -> responder (Right (InL rsp))
+  #endif
   pure ()