Esqueleto: Làm thế nào tôi có thể xóa một mục bằng cách sử dụng một tham gia

Question

Truy vấn sau có thể sử dụng esqueleto không?

DELETE Table1 
FROM Table1 
INNER JOIN Table2 ON Table1.ID = Table2.ItemID 

Tôi đã thử:

delete $ 
    from $ \(table1 `InnerJoin` table2) -> 
    on (table1 ^. Table1ID ==. table2 ^. Table2ItemID) 

đó, kỳ quặc đủ, tạo ra một trong các lỗi thời gian chạy duy nhất mà tôi từng thấy trong Haskell

ERROR: syntax error at or near "INNER" 
LINE 2: FROM "table1" INNER JOIN "table2" ON "tab... 

(về cơ bản, nó được không hài lòng khi số DELETE bị thiếu "table1")

Tôi cũng đã thử thêm một giá trị trả lại cho mona d, mà, giống như với lựa chọn có thể thêm rằng giá trị còn thiếu. Nhưng điều này không thành công vì xóa yêu cầu một đơn vị loại m().

Có thể điều này chỉ bị thiếu trong Esqueleto không?

Answer 1

Trong MS SQL bạn có thể sử dụng bạn có thể xóa bảng sử dụng tham gia sau cách

DELETE Table1,Table2 FROM Table1 INNER JOIN Table2 
WHERE Table1.Id1= Table2.Id1 and Table1.Id1= '1' 

Answer 2

Hãy thử điều này.

delete $ 
from $ \(table1 `InnerJoin` table2) -> do 
on (just (table1 ^. Table1ID ==. table2 ^. Table2ItemID)