mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 12:31:52 +03:00
ed26da59a6
These changes also add a new type, PGColumnType, between PGColInfo and PGScalarType, and they process PGRawColumnType values into PGColumnType values during schema cache generation.
66 lines
2.8 KiB
Haskell
66 lines
2.8 KiB
Haskell
module Hasura.Prelude
|
|
( module M
|
|
, onNothing
|
|
, onJust
|
|
, onLeft
|
|
, choice
|
|
, bsToTxt
|
|
, txtToBs
|
|
) where
|
|
|
|
import Control.Applicative as M (Alternative (..))
|
|
import Control.Monad as M (void, when)
|
|
import Control.Monad.Base as M
|
|
import Control.Monad.Except as M
|
|
import Control.Monad.Fail as M (MonadFail)
|
|
import Control.Monad.Identity as M
|
|
import Control.Monad.Reader as M
|
|
import Control.Monad.State.Strict as M
|
|
import Data.Bool as M (bool)
|
|
import Data.Data as M (Data (..))
|
|
import Data.Either as M (lefts, partitionEithers,
|
|
rights)
|
|
import Data.Foldable as M (foldrM, for_, toList,
|
|
traverse_)
|
|
import Data.Function as M (on, (&))
|
|
import Data.Functor as M (($>), (<&>))
|
|
import Data.Hashable as M (Hashable)
|
|
import Data.List as M (find, foldl', group,
|
|
intercalate, intersect,
|
|
lookup, sort, sortBy, sortOn,
|
|
union, unionBy, (\\))
|
|
import Data.Maybe as M (catMaybes, fromMaybe, isJust,
|
|
isNothing, listToMaybe,
|
|
mapMaybe, maybeToList)
|
|
import Data.Ord as M (comparing)
|
|
import Data.Semigroup as M (Semigroup (..))
|
|
import Data.String as M (IsString)
|
|
import Data.Text as M (Text)
|
|
import Data.Traversable as M (for)
|
|
import Data.Word as M (Word64)
|
|
import GHC.Generics as M (Generic)
|
|
import Prelude as M hiding (fail, init, lookup)
|
|
import Text.Read as M (readEither, readMaybe)
|
|
|
|
import qualified Data.ByteString as B
|
|
import qualified Data.Text.Encoding as TE
|
|
import qualified Data.Text.Encoding.Error as TE
|
|
|
|
onNothing :: (Monad m) => Maybe a -> m a -> m a
|
|
onNothing m act = maybe act return m
|
|
|
|
onJust :: (Monad m) => Maybe a -> (a -> m ()) -> m ()
|
|
onJust m action = maybe (return ()) action m
|
|
|
|
onLeft :: (Monad m) => Either e a -> (e -> m a) -> m a
|
|
onLeft e f = either f return e
|
|
|
|
choice :: (Alternative f) => [f a] -> f a
|
|
choice = foldr (<|>) empty
|
|
|
|
bsToTxt :: B.ByteString -> Text
|
|
bsToTxt = TE.decodeUtf8With TE.lenientDecode
|
|
|
|
txtToBs :: Text -> B.ByteString
|
|
txtToBs = TE.encodeUtf8
|