nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

ad Util module containing debug helpers

Browse source
This commit is contained in:
nek0 2019-10-22 03:01:15 +02:00
parent f21e519057
commit f1c9d4282e
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Util.hs Normal file
View file

@ -0,0 +1,11 @@
{-# LANGUAGE FlexibleContexts #-}
module Util where
import Opaleye
import Data.Maybe (maybe)
import Data.Profunctor.Product.Default (Default)
printSql :: Default Unpackspec a a => Select a -> IO ()
printSql = putStrLn . maybe "Empty query" id . showSqlForPostgres