Commit c66d3ed4 authored by Sophie Herold's avatar Sophie Herold 🌼

Adds mising file

parent 66e0f309
Pipeline #797 passed with stage
in 3 minutes and 51 seconds
-- This file is part of HamSql
--
-- Copyright 2014-2016 by it's authors.
-- Some rights reserved. See COPYING, AUTHORS.
module Database.YamSql.Internal.Utils
( tshow
, Text
, isIn
, (<>)
, asum
, fromMaybe
) where
import Data.Foldable (asum)
import Data.Maybe (fromMaybe)
import Data.Semigroup ((<>))
import qualified Data.Text as T
import Data.Text (Text)
import Data.Text.Lazy (toStrict)
import Text.Pretty.Simple (pShow)
tshow
:: (Show a)
=> a -> Text
tshow = T.replace "\\\"" "“" . toStrict . pShow
isIn :: Char -> Text -> Bool
isIn c t = T.singleton c `T.isInfixOf` t
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment