src/Gargantext/API/Types.hs

   1 {-|
   2 Module      : Gargantext.API..Types
   3 Description : Ngrams List Types
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 -}
  11
  12 {-# OPTIONS_GHC -fprint-potential-instances #-}
  13
  14 module Gargantext.API.Types where
  15
  16 import Data.Aeson
  17 import qualified Data.ByteString.Lazy.Char8 as BS8
  18 import Data.Either (Either(..))
  19 import Data.List.NonEmpty (NonEmpty ((:|)))
  20 import Data.Text (Text)
  21 import qualified Data.Text.Encoding as E
  22 import Data.Typeable
  23 import Network.HTTP.Media ((//), (/:))
  24 import Prelude (($))
  25 import qualified Prelude
  26 import Servant
  27   ( Accept(..)
  28   , MimeRender(..)
  29   , MimeUnrender(..) )
  30
  31 data HTML deriving (Typeable)
  32 instance Accept HTML where
  33   contentTypes _ = "text" // "html" /: ("charset", "utf-8") :| ["text" // "html"]
  34 instance MimeRender HTML BS8.ByteString where
  35   mimeRender _ = Prelude.id
  36 instance MimeUnrender HTML BS8.ByteString where
  37     mimeUnrender _ bs = Right bs
  38 instance MimeRender HTML Text where
  39     mimeRender _ bs = BS8.fromStrict $ E.encodeUtf8 bs
  40 instance MimeUnrender HTML Text where
  41     mimeUnrender _ bs = Right $ E.decodeUtf8 $ BS8.toStrict bs
  42 instance {-# OVERLAPPABLE #-} ToJSON a => MimeRender HTML a where
  43   mimeRender _ = encode