createFunctions :: Connection -> IO ()
createFunctions con = withTransaction con $
  execute_ con createFunctionsQuery >> return ()
createFunctions :: Connection -> IO ()
createFunctions con = withTransaction con $
  execute_ con createFunctionsQuery >> return ()
createFunctions con = withTransaction con $
  execute_ con createFunctionsQuery >> return ()