hercules-ci-agent-0.8.3: src/Hercules/Agent/WorkerProtocol/Orphans.hs

{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE PolyKinds #-}
{-# OPTIONS_GHC -Wno-orphans #-}

module Hercules.Agent.WorkerProtocol.Orphans where

import Control.Applicative ((<$>))
import Data.Binary
import Hercules.API.Id (Id (..))

instance Binary (Id (a :: k)) where
  put (Id uuid) = put uuid
  get = Id <$> get