initialize :: (MonadReader Config m, MonadIO m) => m ()
initialize = do
  config <- ask
  let conn = _configConnection config
  liftIO $ Simple.execute_ conn "     \
    \ CREATE TABLE IF NOT EXISTS Post \
    \ ( id INTEGER PRIMARY KEY        \
    \ , title TEXT                    \
    \ , description TEXT              \
    \ , created_at TEXT               \
    \ , updated_at TEXT               \
    \ , slug TEXT UNIQUE              \
    \ );                              "

-- =============================================================================
-- Verbs
-- =============================================================================

-- | Specify types here for error message type resolution.
initialize :: (MonadReader Config m, MonadIO m) => m ()
initialize = do
  config <- ask
  let conn = _configConnection config
  liftIO $ Simple.execute_ conn "     \
    \ CREATE TABLE IF NOT EXISTS Post \
    \ ( id INTEGER PRIMARY KEY        \
    \ , title TEXT                    \
    \ , description TEXT              \
    \ , created_at TEXT               \
    \ , updated_at TEXT               \
    \ , slug TEXT UNIQUE              \
    \ );                              "

-- =============================================================================
-- Verbs
-- =============================================================================

-- | Specify types here for error message type resolution.
initialize = do
  config <- ask
  let conn = _configConnection config
  liftIO $ Simple.execute_ conn "     \
    \ CREATE TABLE IF NOT EXISTS Post \
    \ ( id INTEGER PRIMARY KEY        \
    \ , title TEXT                    \
    \ , description TEXT              \
    \ , created_at TEXT               \
    \ , updated_at TEXT               \
    \ , slug TEXT UNIQUE              \
    \ );                              "

-- =============================================================================
-- Verbs
-- =============================================================================

-- | Specify types here for error message type resolution.