gitlib-0.5.5: Data/Git/Tag.hs

{-# LANGUAGE OverloadedStrings #-}

module Data.Git.Tag where

import           Data.Git.Common
import           Data.Git.Internal
import qualified Data.Text as T
import qualified Prelude

data Tag = Tag { tagInfo :: Base Tag
               , tagRef  :: Oid }

instance Show Tag where
  show x = case gitId (tagInfo x) of
    Pending _ -> "Tag..."
    Stored y  -> "Tag#" ++ show y

-- Tag.hs