plan :: ToJSON a => Connection -> Text -> Text -> a -> UTCTime -> IO ()
plan con name method args at =
  runInsert con name method args at
plan :: ToJSON a => Connection -> Text -> Text -> a -> UTCTime -> IO ()
plan con name method args at =
  runInsert con name method args at
plan con name method args at =
  runInsert con name method args at