fix parser, display help

pact-core/Pact/Core/Repl.hs

@@ -76,7 +76,6 @@ main = do
       Just input -> case parseReplActionText (T.strip input) of
         Nothing -> do
           outputStrLn "Error: Expected supported command or expression. See :help for more information."
-          outputStrLn $ show $ parseReplActionText input
           loop
         Just ra -> case ra of
           RALoad txt -> let

pact-core/Pact/Core/Repl/Command.hs

@@ -87,6 +87,7 @@ helpCommand = outputStrLn $ List.intercalate "\n"
   , "     tc-type         show inferred type information"
   , "     specializer     show specializer phase information"
   , "     untyped-core    show untyped core phase information"
+  , ""
   ]
 
 

pact-core/Pact/Core/Repl/Types.hs

@@ -201,19 +201,20 @@ parseReplAction =
   where
   execute =
     RAExecuteExpr <$> MP.takeRest
-  cmdKw kw = MP.chunk kw *> MP.space1
   cmd = do
     _ <- MP.char ':'
-    load <|> setFlag <|> showHelp
-  showHelp = pure RAShowHelp
-  setFlag =
-    cmdKw "debug" *> (RASetDebugFlag <$> parseReplDebugUpdate)
-
-  -- tc = do
-  --   cmdKw "type"
-  --   RATypecheck <$> MP.takeRest
+    load <|> setDebugFlag <|> showHelp
+
+  cmdKwWithArg kw = MP.chunk kw *> MP.space1
+
+  showHelp =
+    RAShowHelp <$ MP.chunk "help"
+
+  setDebugFlag =
+    cmdKwWithArg "debug" *> (RASetDebugFlag <$> parseReplDebugUpdate)
+
   load = do
-    cmdKw "load"
+    cmdKwWithArg "load"
     let c = MP.char '\"'
     RALoad <$> MP.between c c (MP.takeWhile1P Nothing (/= '\"'))