diff --git a/beam-sqlite/ChangeLog.md b/beam-sqlite/ChangeLog.md index 9f44d464..a0c7b579 100644 --- a/beam-sqlite/ChangeLog.md +++ b/beam-sqlite/ChangeLog.md @@ -1,3 +1,9 @@ +# 0.5.3.1 + +# Added features + + * Replaced use of deprecated functions. + # 0.5.3.0 # Added features diff --git a/beam-sqlite/Database/Beam/Sqlite/Syntax.hs b/beam-sqlite/Database/Beam/Sqlite/Syntax.hs index e4135d72..0c117ca2 100644 --- a/beam-sqlite/Database/Beam/Sqlite/Syntax.hs +++ b/beam-sqlite/Database/Beam/Sqlite/Syntax.hs @@ -68,6 +68,7 @@ import qualified Data.Text as T import qualified Data.Text.Encoding as TE import qualified Data.Text.Lazy as TL import Data.Time +import qualified Data.Time.Format.ISO8601 as Time import Data.Word #if !MIN_VERSION_base(4, 11, 0) import Data.Semigroup @@ -966,12 +967,10 @@ instance HasSqlValueSyntax SqliteValueSyntax UTCTime where sqlValueSyntax tm = SqliteValueSyntax (emitValue (toField tm)) instance HasSqlValueSyntax SqliteValueSyntax LocalTime where - sqlValueSyntax tm = SqliteValueSyntax (emitValue (SQLText (fromString tmStr))) - where tmStr = formatTime defaultTimeLocale (iso8601DateFormat (Just "%H:%M:%S%Q")) tm + sqlValueSyntax tm = SqliteValueSyntax (emitValue (SQLText (fromString (Time.formatShow Time.iso8601Format tm)))) instance HasSqlValueSyntax SqliteValueSyntax Day where - sqlValueSyntax tm = SqliteValueSyntax (emitValue (SQLText (fromString tmStr))) - where tmStr = formatTime defaultTimeLocale (iso8601DateFormat Nothing) tm + sqlValueSyntax tm = SqliteValueSyntax (emitValue (SQLText (fromString (Time.formatShow Time.iso8601Format tm)))) instance HasDataTypeCreatedCheck SqliteDataTypeSyntax where dataTypeHasBeenCreated _ _ = True diff --git a/beam-sqlite/beam-sqlite.cabal b/beam-sqlite/beam-sqlite.cabal index 6a4c0ee0..eb4c10eb 100644 --- a/beam-sqlite/beam-sqlite.cabal +++ b/beam-sqlite/beam-sqlite.cabal @@ -1,5 +1,5 @@ name: beam-sqlite -version: 0.5.3.0 +version: 0.5.3.1 synopsis: Beam driver for SQLite description: Beam driver for the embedded database. See