diff --git a/LICENSE b/LICENSE
--- a/LICENSE
+++ b/LICENSE
@@ -1,6 +1,6 @@
 MIT License
 
-Copyright (c) 2017-2018 Anton Ekblad
+Copyright (c) 2017-2019 Anton Ekblad
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal
diff --git a/selda-postgresql.cabal b/selda-postgresql.cabal
--- a/selda-postgresql.cabal
+++ b/selda-postgresql.cabal
@@ -1,5 +1,5 @@
 name:                selda-postgresql
-version:             0.1.8.0
+version:             0.1.8.1
 synopsis:            PostgreSQL backend for the Selda database EDSL.
 description:         PostgreSQL backend for the Selda database EDSL.
                      Requires the PostgreSQL @libpq@ development libraries to be
@@ -31,7 +31,7 @@
       base       >=4.9 && <5
     , bytestring >=0.9 && <0.11
     , exceptions >=0.8 && <0.11
-    , selda      >=0.4 && <0.5
+    , selda      >=0.5 && <0.6
     , selda-json >=0.1 && <0.2
     , text       >=1.0 && <1.3
   if !flag(haste)
diff --git a/src/Database/Selda/PostgreSQL.hs b/src/Database/Selda/PostgreSQL.hs
--- a/src/Database/Selda/PostgreSQL.hs
+++ b/src/Database/Selda/PostgreSQL.hs
@@ -277,7 +277,7 @@
     toText [SqlString s] = s
     toText _             = error "toText: unreachable"
     tableinfo = mconcat
-      [ "SELECT column_name, data_type, is_nullable "
+      [ "SELECT column_name, data_type, is_nullable, column_default LIKE 'nextval(%' "
       , "FROM information_schema.columns "
       , "WHERE table_name = '", tbl, "';"
       ]
@@ -322,11 +322,11 @@
       , "and t.relkind = 'r' "
       , "and t.relname = '", tbl , "';"
       ]
-    describe fks ixs [SqlString name, SqlString ty, SqlString nullable] =
+    describe fks ixs [SqlString name, SqlString ty, SqlString nullable, auto] =
       return $ ColumnInfo
         { colName = mkColName name
         , colType = mkTypeRep ty'
-        , colIsAutoPrimary = ty' == "bigserial"
+        , colIsAutoPrimary = isAuto auto
         , colIsNullable = readBool nullable
         , colHasIndex = name `elem` ixs
         , colFKs =
@@ -335,7 +335,10 @@
             , name == cname
             ]
         }
-      where ty' = T.toLower ty
+      where
+        ty' = T.toLower ty
+        isAuto (SqlBool x) = x
+        isAuto _           = False
     describe _ _ results =
       throwM $ SqlError $ "bad result from table info query: " ++ show results