1
1
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00

Move Version up.

This commit is contained in:
Rob Rix 2018-04-02 17:24:48 -04:00
parent 3fe2e91060
commit 056a23a949

View File

@ -13,6 +13,9 @@ data PackageInfo = PackageInfo
}
deriving (Eq, Ord, Show)
newtype Version = Version { versionString :: String }
deriving (Eq, Ord, Show)
-- | A package represents the unit of dependency, i.e. something which can depend upon, or be depended upon by, other packages. Packages have modules and may have entry points from which evaluation can proceed.
data Package term = Package
{ packageInfo :: PackageInfo
@ -21,9 +24,6 @@ data Package term = Package
}
deriving (Eq, Functor, Ord, Show)
newtype Version = Version { versionString :: String }
deriving (Eq, Ord, Show)
fromModules :: [Module term] -> Package term
fromModules [] = Package (PackageInfo Nothing Nothing) mempty mempty