bfx time as milliseconds instead of microseconds

Author: functora

pub/bfx/src/Bfx/Class/ToRequestParam.hs

@@ -47,7 +47,7 @@ instance ToRequestParam Natural where
 
 instance ToRequestParam UTCTime where
   toTextParam =
-    toTextParam . utcTimeToMicros
+    toTextParam . (`div` 1000) . utcTimeToMicros
 
 instance ToRequestParam Text where
   toTextParam =

pub/functora/src/prelude/Functora/Prelude.hs

@@ -212,7 +212,8 @@ import Data.Generics.Sum as X
 import Data.Generics.Uniplate.Data as X ()
 import qualified Data.HMAC as HMAC
 import Data.List.Extra as X
-  ( enumerate,
+  ( chunksOf,
+    enumerate,
     escapeHTML,
     notNull,
     nubOrd,
@@ -285,7 +286,7 @@ import Instances.TH.Lift as X ()
 import qualified Language.Haskell.TH.Lib as TH
 import Language.Haskell.TH.Quote as X (QuasiQuoter (..))
 import qualified Language.Haskell.TH.Syntax as TH
-import Lens.Micro as X (Getting, Traversal, Traversal', (%~), (^..))
+import Lens.Micro as X (Getting, Traversal, Traversal', (%~), (?~), (^..))
 import Lens.Micro.Contra as X (Fold, Getter, fromSimpleFold, fromSimpleGetter)
 import Lens.Micro.GHC as X ()
 import Lens.Micro.TH as X (makeLenses)

pub/functora/src/sql/Functora/Sql.hs

@@ -18,6 +18,7 @@ import Control.Monad.Logger as X
     runStdoutLoggingT,
   )
 import Data.Pool as X (Pool, destroyAllResources)
+import Database.Esqueleto.Experimental as X (putMany)
 import qualified Database.Esqueleto.Internal.Internal as Internal
 import Database.Esqueleto.Legacy as X
   ( BaseBackend,