ipfs-1.0.1: library/Network/IPFS/Internal/Orphanage/ByteString/Lazy.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}

module Network.IPFS.Internal.Orphanage.ByteString.Lazy () where

import qualified RIO.ByteString.Lazy as Lazy
import           Servant

import           Network.IPFS.Prelude

instance MimeRender PlainText Lazy.ByteString where
  mimeRender _proxy = identity

instance FromJSON Lazy.ByteString where
  parseJSON = withText "ByteString" (pure . Lazy.fromStrict . encodeUtf8)