From e1a3903e18b9aad09ead12173a953ca999332df8 Mon Sep 17 00:00:00 2001
From: Kirill Andreev <hindmost.one@gmail.com>
Date: Fri, 8 May 2020 22:14:09 +0400
Subject: [PATCH] Limit exports of Parser

---
 tools/lsp/squirrel/src/AST/Parser.hs |  2 +-
 tools/lsp/squirrel/src/Parser.hs     | 22 +++++++++++++++++++++-
 2 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/tools/lsp/squirrel/src/AST/Parser.hs b/tools/lsp/squirrel/src/AST/Parser.hs
index 87988af2e..d439163b0 100644
--- a/tools/lsp/squirrel/src/AST/Parser.hs
+++ b/tools/lsp/squirrel/src/AST/Parser.hs
@@ -513,7 +513,7 @@ method_call :: Parser (Expr ASTInfo)
 method_call = do
   subtree "projection_call" do
     ctor apply'
-      <*> field "f" projection
+      <*> inside "f" projection
       <*> optional do inside "arguments" arguments
   where
     apply' r f (Just xs) = Apply r (Ident r f) xs
diff --git a/tools/lsp/squirrel/src/Parser.hs b/tools/lsp/squirrel/src/Parser.hs
index e649c70f7..4fc554c00 100644
--- a/tools/lsp/squirrel/src/Parser.hs
+++ b/tools/lsp/squirrel/src/Parser.hs
@@ -37,7 +37,27 @@
         <*> inside "b" b
 -}
 
-module Parser (module Parser, gets, pfGrove) where
+module Parser
+  ( Parser
+  , runParser
+  , debugParser
+  , subtree
+  , anything
+  , token
+  , ASTInfo
+  , ctor
+  , inside
+  , many
+  , some
+  , (<|>)
+  , optional
+  , select
+  , dump
+  , stubbed
+  , Stubbed (stub)
+  , Error
+  , HasComments (getComments)
+  ) where
 
 import Control.Monad.State
 import Control.Monad.Writer