add directions to order by

Language/SQL/SimpleSQL/Syntax.lhs

@@ -6,6 +6,7 @@
 >     ,TableRef(..)
 >     ,JoinType(..)
 >     ,JoinCondition(..)
+>     ,Direction(..)
 >     ) where
 
 
@@ -30,9 +31,11 @@
 >       ,qeWhere :: Maybe ScalarExpr
 >       ,qeGroupBy :: [ScalarExpr]
 >       ,qeHaving :: Maybe ScalarExpr
->       ,qeOrderBy :: [ScalarExpr]
+>       ,qeOrderBy :: [(ScalarExpr,Direction)]
 >       } deriving (Eq,Show)
 
+> data Direction = Asc | Desc deriving (Eq,Show)
+
 > makeSelect :: QueryExpr
 > makeSelect = Select {qeSelectList = []
 >                     ,qeFrom = []