projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Kill timeout thread
[lsp-test.git]
/
test
/
dummy-server
/
Main.hs
diff --git
a/test/dummy-server/Main.hs
b/test/dummy-server/Main.hs
index aee3449c11b5f4e578777d2a8ae3f497fa4414fd..6beee8bb3ecc17aacd43fe4783dc6dca1eb38b71 100644
(file)
--- a/
test/dummy-server/Main.hs
+++ b/
test/dummy-server/Main.hs
@@
-6,6
+6,7
@@
import Control.Monad.Reader
import Data.Aeson hiding (defaultOptions)
import qualified Data.HashMap.Strict as HM
import Data.List (isSuffixOf)
import Data.Aeson hiding (defaultOptions)
import qualified Data.HashMap.Strict as HM
import Data.List (isSuffixOf)
+import Data.String
import Language.LSP.Server
import Language.LSP.Types
import System.Directory
import Language.LSP.Server
import Language.LSP.Types
import System.Directory
@@
-106,7
+107,7
@@
handlers =
DidChangeWatchedFilesRegistrationOptions $
List
[ FileSystemWatcher
DidChangeWatchedFilesRegistrationOptions $
List
[ FileSystemWatcher
- (curDir </> "*.watch")
+ (
fromString $
curDir </> "*.watch")
(Just (WatchKind True True True))
]
Just token <- runInIO $
(Just (WatchKind True True True))
]
Just token <- runInIO $