fix help whitespace parsing

This commit is contained in:
Mark Harrah 2012-03-25 20:35:09 -04:00
parent 2525eeb7e6
commit 0aadf5e500
1 changed files with 1 additions and 1 deletions

View File

@ -28,7 +28,7 @@ object BasicCommands
val h = (Help.empty /: s.definedCommands)(_ ++ _.help(s))
val helpCommands = h.detail.keySet
val arg = (NotSpaceClass ~ any.*) map { case (ns, s) => (ns +: s).mkString }
val spacedArg = token(Space) ~> token( arg examples helpCommands ).?
val spacedArg = (token(Space) ~> token( arg examples helpCommands )).?
applyEffect(spacedArg)(runHelp(s, h))
}