{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}

module Server.HTTPHeaders () where

data CacheControl = NoCache | MaxAge Int

instance Show CacheControl where
    show :: CacheControl -> String
show CacheControl
NoCache = String
"no-cache"
    show (MaxAge Int
s) = String
"max-age=" String -> ShowS
forall a. [a] -> [a] -> [a]
++ Int -> String
forall a. Show a => a -> String
show Int
s