dropFunctions :: Connection -> IO ()
dropFunctions con = withTransaction con $
  execute_ con dropFunctionsQuery >> return ()
dropFunctions :: Connection -> IO ()
dropFunctions con = withTransaction con $
  execute_ con dropFunctionsQuery >> return ()
dropFunctions con = withTransaction con $
  execute_ con dropFunctionsQuery >> return ()