staversion-0.2.1.1: src/Staversion/Internal/BuildPlan/Version.hs

-- |
-- Module: Staversion.Internal.BuildPlan.Version
-- Description: parsing Version
-- Maintainer: Toshio Ito <debug.ito@gmail.com>
--
-- __This is an internal module. End-users should not use it.__
module Staversion.Internal.BuildPlan.Version
       ( parseVersionText,
         VersionJSON(..)
       ) where

import Control.Applicative (empty, pure)
import Data.Aeson (FromJSON(..), Value(..))
import Data.Maybe (listToMaybe)
import Data.Text (Text, unpack)

import Staversion.Internal.Version (parseVersionText, Version)

-- | a wrapper around 'Version' for JSON I/F
newtype VersionJSON = VersionJSON { unVersionJSON :: Version } deriving (Show,Eq,Ord)

instance FromJSON VersionJSON where
  parseJSON (String t) = maybe empty pure $ fmap VersionJSON $ parseVersionText t
  parseJSON _ = empty