let the function get the time itself

src/Main.hs

@@ -181,9 +181,8 @@ userList muid ref = do
 productNew :: Maybe Int -> ProductSubmit -> MateHandler Int
 productNew (Just _) bevsub = do
   conn <- rsConnection <$> ask
-  now <- liftIO $ getCurrentTime
   bevid <- insertProduct bevsub conn
-  void $ insertNewEmptyAmount bevid now bevsub conn
+  void $ insertNewEmptyAmount bevid bevsub conn
   return bevid
 productNew Nothing _ =
   throwError $ err403

src/Model/Amount.hs

@@ -56,25 +56,26 @@ amountTable = table "amount" (
 
 insertNewEmptyAmount
   :: Int           -- | the associated product id
-  -> UTCTime       -- | current time
   -> ProductSubmit -- | submitted product data
   -> PGS.Connection
   -> MateHandler Int
-insertNewEmptyAmount bevid now (ProductSubmit _ price _ _ _ _ _ _ _) conn =
+insertNewEmptyAmount bevid (ProductSubmit _ price _ _ _ _ _ _ _) conn =
-  fmap head $ liftIO $ runInsert_ conn $ Insert
+  liftIO $ do
-    { iTable = amountTable
+    now <- getCurrentTime
-    , iRows  =
+    fmap head $ runInsert_ conn $ Insert
-      [
+      { iTable = amountTable
-      ( C.constant bevid
+      , iRows  =
-      , C.constant now
+        [
-      , C.constant (0 :: Int)
+        ( C.constant bevid
-      , C.constant price
+        , C.constant now
-      , C.constant False
+        , C.constant (0 :: Int)
-      )
+        , C.constant price
-      ]
+        , C.constant False
-    , iReturning = rReturning (\(id_, _, _, _, _) -> id_)
+        )
-    , iOnConflict = Nothing
+        ]
-    }
+      , iReturning = rReturning (\(id_, _, _, _, _) -> id_)
+      , iOnConflict = Nothing
+      }
 
 getLatestPriceByProductId
   :: Int             -- The associated Product ID