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 Data.Version (Version, parseVersion)
import Text.ParserCombinators.ReadP (readP_to_S)
parseVersionText :: Text -> Maybe Version
parseVersionText = extractResult . (readP_to_S parseVersion) . unpack where
extractResult = listToMaybe . map fst . filter (\pair -> snd pair == "")
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