{-# LANGUAGE TypeFamilies #-}

module HaskellWorks.Kuneiform.Pods.Bucket where

import Data.Monoid
import HaskellWorks.Kuneiform.Pod

newtype Bucket = Bucket
  { name :: String
  } deriving (Eq, Show)

newPodBucket :: IO Bucket
newPodBucket = do
  return Bucket
    { name = "hello"
    }

instance Pod Bucket where
  type PodIn Bucket = ()
  type PodOut Bucket = ()
  podIn _ = ()
  podOut _ = ()
  podUp bucket = putStrLn $ "Bucket up: " <> show (name bucket)
  podDown bucket = putStrLn $ "Bucket down: " <> show (name bucket)
  podStatus bucket = putStrLn $ "Bucket status: " <> show (name bucket)