/
alt3rmann
/
graphql-engine
Обзор
Документация
Войти
/
alt3rmann
/
graphql-engine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
server/src-test/Test/SIString.hs
22 строки
522 B
Evie Ciobanu
server/nada: test mkUpdateCTE
06 авг 2022, 00:42
06 авг 2022, 00:42
72cfb7f
Код
Авторство
О чём код?
-- | Space Insensitive String. -- -- Used for things like comparing SQL strings where one of them might be -- formatted differently for easier reading. module Test.SIString ( SIString (..), fromText, ) where import Data.Char (isSpace) import Data.Text qualified as T import Hasura.Prelude newtype SIString = SIString {getSIString :: String} deriving newtype (Show) fromText :: Text -> SIString fromText = SIString . T.unpack instance Eq SIString where (==) = (==) `on` filter (not . isSpace) . getSIString