Movatterモバイル変換

{-# LANGUAGE Safe #-}{-# LANGUAGE DeriveGeneric #-}{-# LANGUAGE NoImplicitPrelude #-}------------------------------------------------------------------------------- |-- Module      :  Data.Version-- Copyright   :  (c) The University of Glasgow 2004-- License     :  BSD-style (see the file libraries/base/LICENSE)---- Maintainer  :  libraries@haskell.org-- Stability   :  experimental-- Portability :  non-portable (local universal quantification in ReadP)---- A general library for representation and manipulation of versions.---- Versioning schemes are many and varied, so the version-- representation provided by this library is intended to be a-- compromise between complete generality, where almost no common-- functionality could reasonably be provided, and fixing a particular-- versioning scheme, which would probably be too restrictive.---- So the approach taken here is to provide a representation which-- subsumes many of the versioning schemes commonly in use, and we-- provide implementations of 'Eq', 'Ord' and conversion to\/from 'String'-- which will be appropriate for some applications, but not all.-------------------------------------------------------------------------------moduleData.Version(-- * The @Version@ typeVersion(..),-- * A concrete representation of @Version@showVersion,parseVersion,-- * Constructor functionmakeVersion)whereimportData.Functor(Functor(..))importControl.Applicative(Applicative(..))importData.Bool((&&))importData.Char(isDigit,isAlphaNum)importData.EqimportData.Int(Int)importData.ListimportData.OrdimportData.String(String)importGHC.GenericsimportGHC.ReadimportGHC.ShowimportText.ParserCombinators.ReadPimportText.Read(read){- |A 'Version' represents the version of a software entity.An instance of 'Eq' is provided, which implements exact equalitymodulo reordering of the tags in the 'versionTags' field.An instance of 'Ord' is also provided, which gives lexicographicordering on the 'versionBranch' fields (i.e. 2.1 > 2.0, 1.2.3 > 1.2.2,etc.).  This is expected to be sufficient for many uses, but note thatyou may need to use a more specific ordering for your versioningscheme.  For example, some versioning schemes may include pre-releaseswhich have tags @\"pre1\"@, @\"pre2\"@, and so on, and these would need tobe taken into account when determining ordering.  In some cases, dateordering may be more appropriate, so the application would have tolook for @date@ tags in the 'versionTags' field and compare those.The bottom line is, don't always assume that 'compare' and other 'Ord'operations are the right thing for every 'Version'.Similarly, concrete representations of versions may differ.  Onepossible concrete representation is provided (see 'showVersion' and'parseVersion'), but depending on the application a different concreterepresentation may be more appropriate.-}dataVersion=Version{versionBranch::[Int],-- ^ The numeric branch for this version.  This reflects the-- fact that most software versions are tree-structured; there-- is a main trunk which is tagged with versions at various-- points (1,2,3...), and the first branch off the trunk after-- version 3 is 3.1, the second branch off the trunk after-- version 3 is 3.2, and so on.  The tree can be branched-- arbitrarily, just by adding more digits.---- We represent the branch as a list of 'Int', so-- version 3.2.1 becomes [3,2,1].  Lexicographic ordering-- (i.e. the default instance of 'Ord' for @[Int]@) gives-- the natural ordering of branches.versionTags::[String]-- really a bag-- ^ A version can be tagged with an arbitrary list of strings.-- The interpretation of the list of tags is entirely dependent-- on the entity that this version applies to.}deriving(Read-- ^ @since 2.01,Show-- ^ @since 2.01,Generic-- ^ @since 4.9.0.0){-# DEPRECATEDversionTags"See GHC ticket #2496"#-}-- TODO. Remove all references to versionTags in GHC 8.0 release.-- | @since 2.01instanceEqVersionwherev1==v2=versionBranchv1==versionBranchv2&&sort(versionTagsv1)==sort(versionTagsv2)-- tags may be in any order-- | @since 2.01instanceOrdVersionwherev1`compare`v2=versionBranchv1`compare`versionBranchv2-- ------------------------------------------------------------------------------- A concrete representation of 'Version'-- | Provides one possible concrete representation for 'Version'.  For-- a version with 'versionBranch' @= [1,2,3]@ and 'versionTags'-- @= [\"tag1\",\"tag2\"]@, the output will be @1.2.3-tag1-tag2@.--showVersion::Version->StringshowVersion(Versionbranchtags)=concat(intersperse"."(mapshowbranch))++concatMap('-':)tags-- | A parser for versions in the format produced by 'showVersion'.--parseVersion::ReadPVersionparseVersion=dobranch<-sepBy1(fmapread(munch1isDigit))(char'.')tags<-many(char'-'*>munch1isAlphaNum)pureVersion{versionBranch=branch,versionTags=tags}-- | Construct tag-less 'Version'---- @since 4.8.0.0makeVersion::[Int]->VersionmakeVersionb=Versionb[]