parseCommand :: FilePath -> String -> Either SPPError Command
parseCommand path input
    = either (Left . sppError InvalidDirective path (Just input)) Right $ doParse command input
parseCommand :: FilePath -> String -> Either SPPError Command
parseCommand path input
    = either (Left . sppError InvalidDirective path (Just input)) Right $ doParse command input
parseCommand path input
    = either (Left . sppError InvalidDirective path (Just input)) Right $ doParse command input