Orphans.hs

{-# OPTIONS_GHC -Wno-orphans #-}

module Cachix.Client.Config.Orphans where

import Data.Aeson qualified as Aeson
import Dhall qualified
import Dhall.Core qualified
import Protolude hiding (toS)
import Protolude.Conv
import Servant.Auth.Client

instance Dhall.FromDhall Token where
  autoWith _ = Dhall.strictText {Dhall.extract = ex}
    where
      ex (Dhall.Core.TextLit (Dhall.Core.Chunks [] t)) = pure (Token (toS t))
      ex _ = panic "Unexpected Dhall value. Did it typecheck?"

instance Dhall.ToDhall Token where
  injectWith _ =
    Dhall.Encoder
      { Dhall.embed = Dhall.Core.TextLit . Dhall.Core.Chunks [] . toS . getToken,
        Dhall.declared = Dhall.Core.Text
      }

instance Aeson.FromJSON Token where
  parseJSON = Aeson.withText "Token" $ pure . Token . toS

instance Aeson.ToJSON Token where
  toJSON = Aeson.String . toS . getToken