如何比較相等的Data.Text.Internal.Lazy.Text和[Char]？

Question

esqueleto返回的previousLogItem數據類型包含Data.Text.Internal.Lazy.Text

import           Data.Text.Lazy                        (pack)

previousLogItem <- select $ from $ \l -> do
        orderBy [desc (l ^. LogItemId)]
        limit 1
        return (l ^. LogItemTitle)

后來我嘗試使用以下方法將previousLogItem與exampleCharList進行比較：

[Value (pack currentWindowTitle)] == previousLogItem

但這不起作用，因為類型仍然不同：

Couldn't match type ‘Data.Text.Internal.Lazy.Text’
                 with ‘Text’
  NB: ‘Text’ is defined in ‘Data.Text.Internal’
      ‘Data.Text.Internal.Lazy.Text’
        is defined in ‘Data.Text.Internal.Lazy’
    arising from a functional dependency between:
      constraint ‘Database.Esqueleto.Internal.Sql.SqlSelect
                    (SqlExpr (Value Text)) (Value Data.Text.Internal.Lazy.Text)’
        arising from a use of ‘select’
      instance ‘Database.Esqueleto.Internal.Sql.SqlSelect
                  (SqlExpr (Value a)) (Value a)’

Answer 1

Couldn't match type ‘Data.Text.Internal.Lazy.Text’
                with ‘Text’
  NB: ‘Text’ is defined in ‘Data.Text.Internal’
    ‘Data.Text.Internal.Lazy.Text’

您使用的是錯誤的Text 。 檢查您的進口。

Answer 2

編輯：我看錯了原始問題

您是否嘗試過使用IsString類中的fromString ？ Data.Text.Internal.Lazy.Text應該是一個實例IsString

舊的（無用的）答案：

使用Data.Text.Lazy的pack函數將String轉換為Text

https://hackage.haskell.org/package/text-1.2.3.0/docs/Data-Text-Lazy.html