selda-postgresql 0.1.8.0 → 0.1.8.1

raw patch · 3 files changed

+10/−7 lines, 3 filesdep ~seldadep ~timePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: selda, time

API changes (from Hackage documentation)

Files

• LICENSE +1/−1
• selda-postgresql.cabal +2/−2
• src/Database/Selda/PostgreSQL.hs +7/−4

@@ -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

@@ -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)

@@ -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