PATCH path rewriten in new style

2015-10-27 16:27:44 +02:00
parent f7e6005087
commit 482a43d722
3 changed files with 98 additions and 43 deletions
@@ -3,7 +3,7 @@ import Data.Text
 import Data.Tree
 import qualified Data.ByteString.Char8 as BS
 import Data.Aeson
--import Data.Map
+import Data.Map

 data DbStructure = DbStructure {
  tables :: [Table]
@@ -80,8 +80,8 @@ type NodeName = Text
 type SelectItem = (Field, Maybe Cast)
 type Path = [Text]
 data Query = Select { select::[SelectItem], from::[Text], where_::[Filter], order::Maybe [OrderTerm] }
-           | Insert { into::Text, fields::[Field], values::[[Value]] } deriving (Show, Eq)
--           | Update { into::Text, set::Map Field Value, where_::[Filter] } deriving (Show, Eq)
+           | Insert { into::Text, fields::[Field], values::[[Value]] }
+           | Update { into::Text, set::Map Field Value, where_::[Filter] } deriving (Show, Eq)
 data Filter = Filter {field::Field, operator::Operator, value::FValue} deriving (Show, Eq)
 type ApiNode = (Query, (NodeName, Maybe Relation))
 type ApiRequest = Tree ApiNode