commandLine :: Parser Command
commandLine = spaces *> ( emptyLine 
                          <|> enumerate <* eof'
                          <|> file <* eof'
                          <|> playtime <* eof'
                          <|> lastObjectTime <* eof'
                          <|> quit <* eof'
                          <|> help <* eof' )
commandLine :: Parser Command
commandLine = spaces *> ( emptyLine 
                          <|> enumerate <* eof'
                          <|> file <* eof'
                          <|> playtime <* eof'
                          <|> lastObjectTime <* eof'
                          <|> quit <* eof'
                          <|> help <* eof' )
commandLine = spaces *> ( emptyLine 
                          <|> enumerate <* eof'
                          <|> file <* eof'
                          <|> playtime <* eof'
                          <|> lastObjectTime <* eof'
                          <|> quit <* eof'
                          <|> help <* eof' )