cachix-api-1.14.0: src/Cachix/Types/NarFileName.hs

module Cachix.Types.NarFileName
  ( NarFileName (..),
  )
where

import qualified Data.OpenApi as OpenApi
import qualified Data.Swagger as Swagger
import qualified Data.Text as T
import Protolude
import Servant.API

-- | <hash>.nar.<extension> file
data NarFileName = NarFileName
  { contentHash :: Text,
    extension :: Text
  }
  deriving (Generic)

instance FromHttpApiData NarFileName where
  parseUrlPiece s =
    case T.splitOn "." s of
      [filename, "nar", ext] ->
        Right $ NarFileName filename ext
      _ -> Left $ "Wrong nar filename: " <> s

instance ToHttpApiData NarFileName where
  toUrlPiece narfilename = contentHash narfilename <> ".nar." <> extension narfilename

instance Swagger.ToParamSchema NarFileName where
  toParamSchema _ = Swagger.toParamSchema (Proxy :: Proxy Text)

instance OpenApi.ToParamSchema NarFileName where
  toParamSchema _ = OpenApi.toParamSchema (Proxy :: Proxy Text)