never executed always true always false
1 {-# LANGUAGE TypeFamilies #-}
2 {-# LANGUAGE PolyKinds #-}
3 {-# LANGUAGE DataKinds #-}
4 module Conjure.LSP.Handlers.Initialize where
5 import Language.LSP.Types (SMethod(SInitialized, SWindowShowMessage), ShowMessageParams (ShowMessageParams), MessageType (MtInfo))
6 import Language.LSP.Server
7 import Conjure.Prelude
8
9
10 -- handleInitialize :: Handlers (LspM ())
11 -- handleInitialize = requestHandler SInitialize $ \ req res -> do
12
13
14 handleInitialized :: Handlers (LspM ())
15 handleInitialized = notificationHandler SInitialized $ \_ -> do
16 sendNotification SWindowShowMessage (ShowMessageParams MtInfo "LSP Started 0.0.2\n")
17
18