
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 *                               I N V A D E R S                                * 
 *                                                                             * 
 *        Module :          Command                                               * 
 *        Purpose :         The Invader command type .                             * 
 *        Author :                                                   * 
 *                                                                             * 
 *              Copyright ( c ) Yale University , 2003                             * 
 *                                                                             * 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

******************************************************************************
*                              I N V A D E R S                               *
*                                                                            *
*       Module:         Command                                              *
*       Purpose:        The Invader command type.                            *
*       Author:         Henrik Nilsson                                       *
*                                                                            *
*             Copyright (c) Yale University, 2003                            *
*                                                                            *
******************************************************************************
-}

module Command (
    Command(..)
) where


data Command =
      CmdQuit                           -- Quit Invaders.
    | CmdNewGame                        -- Play game.
    | CmdFreeze                         -- Freeze game.
    | CmdResume                         -- Resume game.

 Quit Invaders.
 Play game.
 Freeze game.
 Resume game.

 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 *                               I N V A D E R S                                * 
 *                                                                             * 
 *        Module :          Command                                               * 
 *        Purpose :         The Invader command type .                             * 
 *        Author :                                                   * 
 *                                                                             * 
 *              Copyright ( c ) Yale University , 2003                             * 
 *                                                                             * 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

******************************************************************************
*                              I N V A D E R S                               *
*                                                                            *
*       Module:         Command                                              *
*       Purpose:        The Invader command type.                            *
*       Author:         Henrik Nilsson                                       *
*                                                                            *
*             Copyright (c) Yale University, 2003                            *
*                                                                            *
******************************************************************************
-}

module Command (
    Command(..)
) where


data Command =
