From: Zubin Duggal Date: Wed, 3 Feb 2021 17:16:54 +0000 (+0530) Subject: use Text instead of String X-Git-Tag: 0.13.0.0~2^2 X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=commitdiff_plain;h=dcad2a3010b8f40e1e32ee0a3c980c32980e20e3 use Text instead of String --- diff --git a/src/Language/LSP/Test.hs b/src/Language/LSP/Test.hs index 90000fd..62b3267 100644 --- a/src/Language/LSP/Test.hs +++ b/src/Language/LSP/Test.hs @@ -398,7 +398,7 @@ createDoc file languageId contents = do watchHits :: FileSystemWatcher -> Bool watchHits (FileSystemWatcher pattern kind) = -- If WatchKind is exlcuded, defaults to all true as per spec - fileMatches pattern && createHits (fromMaybe (WatchKind True True True) kind) + fileMatches (T.unpack pattern) && createHits (fromMaybe (WatchKind True True True) kind) fileMatches pattern = Glob.match (Glob.compile pattern) relOrAbs -- If the pattern is absolute then match against the absolute fp