persistent-mysql: treat tinyint as SqlOther "tinyint", not SqlBool

yesodweb · Nov 28, 2023 · 71efb6b · 71efb6b
1 parent 9f9019f
commit 71efb6b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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