2019-10-22 01:01:15 +00:00
|
|
|
{-# LANGUAGE FlexibleContexts #-}
|
|
|
|
|
module Util where
|
|
|
|
|
|
|
|
|
|
import Opaleye
|
|
|
|
|
|
2019-12-12 02:15:56 +00:00
|
|
|
import Data.Maybe (fromMaybe)
|
2019-10-22 01:01:15 +00:00
|
|
|
|
|
|
|
|
import Data.Profunctor.Product.Default (Default)
|
|
|
|
|
|
|
|
|
|
printSql :: Default Unpackspec a a => Select a -> IO ()
|
2019-12-12 02:15:56 +00:00
|
|
|
printSql = putStrLn . fromMaybe "Empty query" . showSqlForPostgres
|
