polysemy-process-0.14.0.0: lib/Polysemy/Process/Interpreter/ProcessInput.hs

{-# options_haddock prune #-}

-- | Description: ProcessInput Interpreters, Internal
module Polysemy.Process.Interpreter.ProcessInput where

import Polysemy.Process.Effect.ProcessInput (ProcessInput (Encode))

-- | Interpret 'ProcessInput' by passing 'ByteString' through.
interpretProcessInputId :: InterpreterFor (ProcessInput ByteString) r
interpretProcessInputId =
  interpret \case
    Encode value ->
      pure value
{-# inline interpretProcessInputId #-}

-- | Interpret 'ProcessInput' by UTF-8-encoding 'Text'.
interpretProcessInputText :: InterpreterFor (ProcessInput Text) r
interpretProcessInputText =
  interpret \case
    Encode value ->
      pure (encodeUtf8 value)
{-# inline interpretProcessInputText #-}