diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,6 @@
+# log-postgres-0.8.0.0 (2021-06-09)
+* Stop putting `insertion_time` and `insertion_order` in PostgreSQL.
+
 # log-postgres-0.7.1.5 (2021-05-28)
 * Support GHC 9.0.
 
diff --git a/log-postgres.cabal b/log-postgres.cabal
--- a/log-postgres.cabal
+++ b/log-postgres.cabal
@@ -1,6 +1,6 @@
 cabal-version:       2.0
 name:                log-postgres
-version:             0.7.1.5
+version:             0.8.0.0
 synopsis:            Structured logging solution (PostgreSQL back end)
 
 description:         PostgreSQL back end for the 'log' library suite.
@@ -36,7 +36,7 @@
                     , hpqtypes              >= 1.7
                     , http-client           >= 0.5
                     , lifted-base           >= 0.2
-                    , log-base              >= 0.7  && < 0.10
+                    , log-base              >= 0.10  && < 0.11
                     , mtl                   >= 2.2
                     , semigroups            >= 0.16
                     , split                 >= 0.2
diff --git a/src/Log/Backend/PostgreSQL.hs b/src/Log/Backend/PostgreSQL.hs
--- a/src/Log/Backend/PostgreSQL.hs
+++ b/src/Log/Backend/PostgreSQL.hs
@@ -51,18 +51,17 @@
 
     sqlInsertLog :: SQL
     sqlInsertLog = "INSERT INTO logs "
-      <+> "(insertion_time, insertion_order, time, level, component,"
-      <+> " domain, message, data) VALUES"
+      <+> "(time, level, component, domain, message, data) VALUES"
 
     serialize :: InvalidEncodingRecoveryAttempt -> [LogMessage] -> IO ()
     serialize !attempt msgs = runDBT cs ts
       (runSQL_ $ sqlInsertLog
-       <+> mintercalate ", " (map sqlifyMessage $ zip [1..] msgs))
+       <+> mintercalate ", " (map sqlifyMessage msgs))
       `catches` [
         -- Propagate base async exceptions thrown by the runtime system.
         Handler $ \(e::AsyncException) -> throwIO e
       , Handler $ \(e::SomeException) -> case fromException e of
-        Just dbe@DBException{..}
+        Just dbe@DBException{}
           | Just qe <- getEncodingQueryError dbe -> case attempt of
             Attempt 1 -> do
               -- If a client uses UTF-8 encoding (TODO: in fact it should
@@ -163,11 +162,9 @@
         doValue (String s)   = String <$> doText s
         doValue v            = return v
 
-    sqlifyMessage :: (Int, LogMessage) -> SQL
-    sqlifyMessage (n, LogMessage{..}) = mconcat [
+    sqlifyMessage :: LogMessage -> SQL
+    sqlifyMessage LogMessage{..} = mconcat [
         "("
-      , "now()"
-      , "," <?> n
       , "," <?> lmTime
       , "," <?> showLogLevel lmLevel
       , "," <?> lmComponent