module Rel8.Statement.SQL
( showDelete
, showInsert
, showUpdate
)
where
import Prelude
import Rel8.Statement.Delete ( Delete, ppDelete )
import Rel8.Statement.Insert ( Insert, ppInsert )
import Rel8.Statement.Update ( Update, ppUpdate )
showDelete :: Delete a -> String
showDelete :: Delete a -> String
showDelete = Doc -> String
forall a. Show a => a -> String
show (Doc -> String) -> (Delete a -> Doc) -> Delete a -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Delete a -> Doc
forall a. Delete a -> Doc
ppDelete
showInsert :: Insert a -> String
showInsert :: Insert a -> String
showInsert = Doc -> String
forall a. Show a => a -> String
show (Doc -> String) -> (Insert a -> Doc) -> Insert a -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Insert a -> Doc
forall a. Insert a -> Doc
ppInsert
showUpdate :: Update a -> String
showUpdate :: Update a -> String
showUpdate = Doc -> String
forall a. Show a => a -> String
show (Doc -> String) -> (Update a -> Doc) -> Update a -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Update a -> Doc
forall a. Update a -> Doc
ppUpdate