Tidy parser

Author: isovector

plugins/hls-tactics-plugin/src/Wingman/Metaprogramming/Parser.hs

@@ -8,16 +8,15 @@ module Wingman.Metaprogramming.Parser where
 
 import qualified Control.Monad.Combinators.Expr as P
 import           Data.Functor
-import           Development.IDE.GHC.Compat (alphaTyVars, LHsExpr, GhcPs)
-import           GhcPlugins (mkTyVarTy)
+import qualified Data.Text as T
+import           Development.IDE.GHC.Compat (LHsExpr, GhcPs)
 import qualified Refinery.Tactic as R
 import qualified Text.Megaparsec as P
 import           Wingman.Auto
 import           Wingman.LanguageServer.TacticProviders (useNameFromHypothesis)
 import           Wingman.Metaprogramming.Lexer
 import           Wingman.Tactics
 import           Wingman.Types
-import qualified Data.Text as T
 
 
 nullary :: T.Text -> TacticsM () -> Parser (TacticsM ())
@@ -62,25 +61,18 @@ bindOne t t1 = t R.<@> [t1]
 
 operators :: [[P.Operator Parser (TacticsM ())]]
 operators =
-    [ [ P.Prefix (symbol "*" $> R.many_) ]
+    [ [ P.Prefix (symbol "*"   $> R.many_) ]
     , [ P.Prefix (symbol "try" $> R.try) ]
-    , [ P.InfixR (symbol "|" $> (R.<%>) )]
-    , [ P.InfixL (symbol ";" $> (>>))
-      , P.InfixL (symbol "," $> bindOne)
+    , [ P.InfixR (symbol "|"   $> (R.<%>) )]
+    , [ P.InfixL (symbol ";"   $> (>>))
+      , P.InfixL (symbol ","   $> bindOne)
       ]
     ]
 
 
-skolems :: [Type]
-skolems = fmap mkTyVarTy alphaTyVars
-
-a_skolem, b_skolem, c_skolem :: Type
-(a_skolem : b_skolem : c_skolem : _) = skolems
-
-
 attempt_it :: Context -> Judgement -> String -> Either String (LHsExpr GhcPs)
 attempt_it ctx jdg program =
-  case P.runParser (sc *> tactic <* P.eof) "<splice>" (T.pack program) of
+  case P.runParser (sc *> tactic <* P.eof) "<splice>" $ T.pack program of
     Left peb -> Left $ P.errorBundlePretty peb
     Right tt -> do
       case runTactic