如何在 postgres bigint 数组的情况下正确定义 PersistFieldSql？

问题描述

所以基本上我已经为 [Int64] 的一般实例定义了这个持久字段。虽然看起来我离让 postgres 理解 [1,2,3,4] 还很远。

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE DeriveGeneric #-}

module API.Models.General where

import Data.Aeson
import Database.Persist.Types
import Database.Persist
import Database.Persist.Postgresql
import Database.Persist.TH
import Data.Char
import Data.Foldable
import GHC.Generics
import GHC.Int

type TertiaryUserIds = [Int64]
type BranchIds = [Int64]

instance PersistField [Int64] where
  toPersistValue a = PersistList $ map toPersistValue a
  fromPersistValue (PersistList a) = traverse fromPersistValue a

instance PersistFieldsql [Int64] where
  sqlType _ = sqlOther "bigint[]"

使用 yesod 迁移工作正常，尽管我收到的错误看起来像这样：

sqlErrorMsg = "malformed array literal: \"[1,9]\"",sqlErrorDetail = "Missing \"]\" after array dimensions."

这是如何修复的？

非常感谢您。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）