mysql-haskellでMySQLDateTimeに引数が渡せない

Question

MySQL(MariaDB)にInsertしたいがMySQLDateTimeに引数が渡せない

HaskellでMySQLにInsertを実行したいがエラーになります。
型があっていないようですが、どのように記述したらよいのかわかりません。

発生している問題・エラーメッセージ

apo@debian:~/doc/project/make/haskell/mysql-haskell/my-project$ stack build
my-project-0.1.0.0: unregistering (local file changes: app/Main.hs)
my-project> configure (lib + exe)
Configuring my-project-0.1.0.0...
my-project> build (lib + exe)
Preprocessing library for my-project-0.1.0.0..
Building library for my-project-0.1.0.0..
Preprocessing executable 'my-project-exe' for my-project-0.1.0.0..
Building executable 'my-project-exe' for my-project-0.1.0.0..
[2 of 2] Compiling Main

/home/apo/doc/project/make/haskell/mysql-haskell/my-project/app/Main.hs:24:86: error: parse error on input ‘2020’                                          
   |
24 |        executeStmt conn stmt [MySQLText "chris", MySQLText "comment", MySQLDateTime '2020/06/05 09:00:00']
   |                                                                                      ^^^^


--  While building package my-project-0.1.0.0 using:
      /home/apo/.stack/setup-exe-cache/x86_64-linux-tinfo6/Cabal-simple_mPHDZzAJ_2.0.1.0_ghc-8.2.2 --builddir=.stack-work/dist/x86_64-linux-tinfo6/Cabal-2.0.1.0 build lib:my-project exe:my-project-exe --ghc-options " -fdiagnostics-color=always"
    Process exited with code: ExitFailure 1

該当のソースコード

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Lib
import Control.Exception
import Database.MySQL.Base
import qualified System.IO.Streams as Streams

transactional :: MySQLConn -> IO a -> IO a
transactional conn procedure = mask $ \restore -> do
  execute_ conn "BEGIN"
  a <- restore procedure `onException` (execute_ conn "ROLLBACK")
  execute_ conn "COMMIT"
  pure a

main :: IO ()
main = do
     someFunc
     conn <- connect
        defaultConnectInfo {ciUser = "root", ciPassword = "password", ciDatabase = "test"}
     stmt <- prepareStmt conn "INSERT INTO memos (name, comment, time) VALUES (?, ?, ?)"
     transactional conn $ do
       executeStmt conn stmt [MySQLText "chris", MySQLText "comment", MySQLDateTime '2020/06/05 09:00:00']

試したこと

時刻の記載の仕方が悪いと思い、色々試してみましたがだめでした。

executeStmt conn stmt [MySQLText "chris", MySQLText "comment", MySQLDateTime '2020-06-05 09:00:00']
executeStmt conn stmt [MySQLText "chris", MySQLText "comment", MySQLDateTime '2020-06-05 09:00:00.000001']
executeStmt conn stmt [MySQLText "chris", MySQLText "comment", MySQLDateTime '2020/06/05 09:00:00']
executeStmt conn stmt [MySQLText "chris", MySQLText "comment", MySQLDateTime '06/05/2020 09:00:00']
executeStmt conn stmt [MySQLText "chris", MySQLText "comment", MySQLDateTime '06-05-2020 09:00:00']

補足情報（FW/ツールのバージョンなど）

OS:Debian10
DataBase:mysql Ver 15.1 Distrib 10.3.22-MariaDB, for debian-linux-gnu (x86_64) using readline 5.2
Stack:Version 2.3.1
Resolver:lts-11.22
テーブルの定義

MariaDB [test]> show columns from memos;
+---------+--------------+------+-----+---------+----------------+
| Field   | Type         | Null | Key | Default | Extra          |
+---------+--------------+------+-----+---------+----------------+
| id      | mediumint(9) | NO   | PRI | NULL    | auto_increment |
| name    | char(30)     | YES  |     | NULL    |                |
| comment | char(50)     | YES  |     | NULL    |                |
| time    | datetime     | YES  |     | NULL    |                |
+---------+--------------+------+-----+---------+----------------+

全てのソースコード
https://github.com/ringo-apo/mysql-haskell
参考にしたサイト
https://qiita.com/lotz/items/1d9c7b4333fd4d29a150

よろしくお願いします。

Answer 1

こんにちは。
とりあえず問題の箇所についてぱっと見回答です。

まず最初に、値をシングルクオートでくくってるのが完全におかしいですが、それは置いといて、
ドキュメントを眺めた限り、MySQLDateTime は LocalTime を渡して作ると言っています。
https://hackage.haskell.org/package/mysql-haskell-0.8.4.2/docs/Database-MySQL-Protocol-MySQLValue.html
https://hackage.haskell.org/package/time-1.8.0.2/docs/Data-Time-LocalTime.html

そして、LocalTime はいろいろ方法はありそうですがとりあえず parseTimeM で String から作れそうですね。
https://hackage.haskell.org/package/time-1.8.0.2/docs/Data-Time-Format.html

Comments

[apo]

ありがとうございます。試してみます。

Answer 2

executeStmt conn stmt [MySQLText "chris", MySQLText "comment", MySQLText "2020/10/01 00:00:00"]

でとりあえず動きました。