src/Rel8/Statement/SQL.hs · rel8

on 40994a7 help sign in

29 lines 673 B history raw

1module Rel8.Statement.SQL

2 ( showDelete

3 , showInsert

4 , showUpdate

5 )

6where

8-- base

9import Prelude

11-- rel8

12import Rel8.Statement.Delete ( Delete, ppDelete )

13import Rel8.Statement.Insert ( Insert, ppInsert )

14import Rel8.Statement.Update ( Update, ppUpdate )

17-- | Convert a 'Delete' to a 'String' containing a @DELETE@ statement.

18showDelete :: Delete a -> String

19showDelete = show . ppDelete

22-- | Convert an 'Insert' to a 'String' containing an @INSERT@ statement.

23showInsert :: Insert a -> String

24showInsert = show . ppInsert

27-- | Convert an 'Update' to a 'String' containing an @UPDATE@ statement.

28showUpdate :: Update a -> String

29showUpdate = show . ppUpdate