From 71efb6b5482c07a219cdc3e64f4102401d3b6fc2 Mon Sep 17 00:00:00 2001 From: Fumiaki Kinoshita Date: Mon, 27 Nov 2023 18:43:13 +0900 Subject: [PATCH] persistent-mysql: treat tinyint as SqlOther "tinyint", not SqlBool --- persistent-mysql/Database/Persist/MySQL.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/persistent-mysql/Database/Persist/MySQL.hs b/persistent-mysql/Database/Persist/MySQL.hs index 76e01a81a..85f9989b4 100644 --- a/persistent-mysql/Database/Persist/MySQL.hs +++ b/persistent-mysql/Database/Persist/MySQL.hs @@ -834,7 +834,8 @@ parseColumnType :: Text -> ColumnInfo -> ExceptT String IO (SqlType, Maybe Integ -- value explicitly set in `showSqlType` for SqlBool). -- parseColumnType "tinyint" ci - | ciColumnType ci == "tinyint" || ciColumnType ci == "tinyint(1)" = return (SqlBool, Nothing) + | ciColumnType ci == "tinyint(1)" = return (SqlBool, Nothing) + | Just _ <- T.stripPrefix "tinyint" (ciColumnType ci) = return (SqlOther "tinyint", Nothing) parseColumnType "int" ci | ciColumnType ci == "int" || ciColumnType ci == "int(11)" = return (SqlInt32, Nothing) parseColumnType "bigint" ci