cachix-0.6.0: src/Cachix/Client/Config/Orphans.hs

{-# OPTIONS_GHC -Wno-orphans #-}

module Cachix.Client.Config.Orphans
  (
  )
where

import Dhall hiding (Text)
import Dhall.Core (Chunks (..), Expr (..))
import Protolude hiding (toS)
import Protolude.Conv
import Servant.Auth.Client

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

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