mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-24 07:52:14 +03:00
23 lines
522 B
Haskell
23 lines
522 B
Haskell
|
-- | 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
|