Fix build errors on Windows

JakuJ · Aug 27, 2024 · 236a916 · 236a916
1 parent 9c6b954
commit 236a916
Showing 1 changed file with 7 additions and 2 deletions.
diff --git 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 ()