@@ -18,6 +18,7 @@ import Data.Maybe
18import qualified Data.Text as T
18import qualified Data.Text as T
19import Data.Binary
19import Data.Binary
20import Control.Arrow
20import Control.Arrow
22data AttributeOrderExpr = AttributeOrderExpr AttributeName Order deriving (Show, Generic, Binary)
23data AttributeOrderExpr = AttributeOrderExpr AttributeName Order deriving (Show, Generic, Binary)
23data AttributeOrder = AttributeOrder AttributeName Order deriving (Show, Generic, Binary)
24data AttributeOrder = AttributeOrder AttributeName Order deriving (Show, Generic, Binary)