Improve cpm parser

cpm/Cpm.icl

@@ -50,12 +50,11 @@ spstrtok :: (String -> CParser Char [Char] a)
 spstrtok = sptoken o fromString
 
 pProject :: CParser Char CpmAction a
-pProject = spstrtok "project" &> pNotSpace <&> \pn -> pProjectAction <@ Project (toString pn)
+pProject = spstrtok "project" &> pNotSpace <&> \pn -> (pProjectAction <!> yield ProjectHelp) <@ Project (toString pn)
   where  pProjectAction  =  spstrtok "create"                                       <@ const CreateProject
                        <|>  spstrtok "show"                                         <@ const ShowProject
                        <|>  spstrtok "build"   &>  pForce       <&> \ f-> pIDEEnvs  <@ BuildProject f
                        <|>  spstrtok "path"    &>  pPathAction                      <@ ProjectPath
-                       <!>  yield ProjectHelp
          pPathAction     =  spstrtok "add"     &>  pNotSpace    <@ AddPathAction o toString
                        <|>  spstrtok "remove"  &>  pNotSpace    <@ RemovePathAction o toString
 
@@ -66,9 +65,8 @@ pIDEEnvs :: CParser Char String a
 pIDEEnvs = spstrtok "--envs" &> (<?> (spsymbol '=')) &> pNotSpace <@ toString <!> yield EnvsFileName
 
 pModule :: CParser Char CpmAction a
-pModule = spstrtok "module" &> pNotSpace <&> \mn -> pModuleAction <@ Module (toString mn)
+pModule = spstrtok "module" &> pNotSpace <&> \mn -> (pModuleAction <!> yield ModuleHelp) <@ Module (toString mn)
   where  pModuleAction  =  spstrtok "create" <@ const CreateModule
-                      <!>  yield ModuleHelp
 
 Start :: *World -> *World
 Start world
@@ -91,8 +89,8 @@ doCpmAction world cleanhome  pwd  (Project pn pa)  = doProjectAction world clean
 doCpmAction world cleanhome  pwd  (Module mn ma)   = doModuleAction world cleanhome mn ma
 doCpmAction world _          _    _                =
   help  "cpm <target>"  [  "Where <target> is one of the following:"
-                        ,  "  project  : project actions"
-                        ,  "  module   : module action"
+                        ,  "  project <filename.prj>  : project actions"
+                        ,  "  module                  : module actions"
                         ,  ""
                         ,  "Execute `cpm <target> help` to get help for specific actions."] world