git.iko.soy/rel8
on a8f61ac help sign in
rel8/src/Rel8/Query/SQL.hs
21 lines 417 B history raw
1{-# language FlexibleContexts #-}
2{-# language MonoLocalBinds #-}
4module Rel8.Query.SQL
5 ( showQuery
6 )
7where
9-- base
10import Prelude
12-- rel8
13import Rel8.Expr ( Expr )
14import Rel8.Query ( Query )
15import Rel8.Statement.Select ( ppSelect )
16import Rel8.Table ( Table )
19-- | Convert a 'Query' to a 'String' containing a @SELECT@ statement.
20showQuery :: Table Expr a => Query a -> String
21showQuery = show . ppSelect