module Orders where

import GPS
import Facing
import Unit

data Order = OrderMove UnitId [GPS]
           | OrderFace UnitId Facing
           | OrderNAI Int GPS
  deriving (Show, Eq)


type Orders = [Order]

