Fix error msg interpolation

This commit is contained in:
Kirill Andreev 2020-06-01 10:28:47 +04:00
parent 5c643a3b63
commit 11fdc0afa1
No known key found for this signature in database
GPG Key ID: CF7DA79DE4785A47

View File

@ -136,7 +136,7 @@ errorToDiag (Expected what instead (Range (sl, sc, _) (el, ec, _))) =
(Just J.DsError) (Just J.DsError)
Nothing Nothing
(Just "ligo-lsp") (Just "ligo-lsp")
(Text.pack [i|Expected ${what}|]) (Text.pack [i|Expected #{what}|])
(Just $ J.List[]) (Just $ J.List[])
where where
begin = J.Position (sl - 1) (sc - 1) begin = J.Position (sl - 1) (sc - 1)