hydrogen-version (empty) → 1.0

raw patch · 5 files changed

+93/−0 lines, 5 filesdep +basesetup-changed

Dependencies added: base

Files

• CHANGELOG.md +0/−0
• LICENSE +0/−0
• Setup.hs +2/−0
• hydrogen-version.cabal +27/−0
• src/Hydrogen/Version.hs +64/−0

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,27 @@+name:                 hydrogen-version+version:              1.0+homepage:             https://github.com/scravy/hydrogen-version+synopsis:             Hydrogen Syntax+license:              BSD3+license-file:         LICENSE+extra-source-files:   CHANGELOG.md+author:               Julian Fleischer+maintainer:           julfleischer@paypal.com+category:             Language+build-type:           Simple+cabal-version:        >=1.14++source-repository head+    type:             git+    location:         https://github.com/scravy/hydrogen-version++library+  exposed-modules:    Hydrogen.Version+  build-depends:      base ==4.*+  hs-source-dirs:     src+  ghc-options:        -Wall+  default-language:   Haskell2010+  default-extensions:  CPP+                       , FlexibleContexts+                       , FlexibleInstances+

@@ -0,0 +1,64 @@+module Hydrogen.Version (+    Version+  , mkVersion+  , refineVersion+  , majorVersion+  , minorVersion+  , patchVersion+  , tailVersion+  ) where++import Prelude++import Data.List (intersperse)+import Data.Char (isDigit)++newtype Version = Version [Integer]++instance Eq Version where+    v1 == v2 = compare v1 v2 == EQ++instance Ord Version where+    compare (Version v1) (Version v2) = case (v1, v2) of+        ([], []) -> EQ+        (xs, []) -> if all (== 0) xs then EQ else GT+        ([], ys) -> if all (== 0) ys then EQ else LT+        (x : xs, y : ys) | x == y -> compare (Version xs) (Version ys)+        (x : _, y : _) -> compare x y++instance Show Version where+    show (Version v) = concat (intersperse "." (map show v))++instance Read Version where+    readsPrec _ xs = case span isDigit xs of+        ([], _) -> []+        (vs, []) -> result vs ""+        (vs, '.' : rs) -> case reads (tail rs) of+            [(Version vs', rs')] -> [(Version (read vs : vs'), rs')]+            _ -> result vs rs+        (vs, rs) -> result vs rs+      where+        result vs rs = [(Version [read vs], rs)]++majorVersion, minorVersion, patchVersion :: Version -> Integer++majorVersion (Version (v : _)) = v+majorVersion _ = 0++minorVersion (Version (_ : v : _)) = v+minorVersion _ = 0++patchVersion (Version (_ : _ : v : _)) = v+patchVersion _ = 0++tailVersion :: Version -> [Integer]++tailVersion (Version (_ : _ : _ : vs)) = vs+tailVersion _ = []++mkVersion :: Integer -> Integer -> Integer -> Version+mkVersion a b c = Version [a, b, c]++refineVersion :: Version -> Integer -> Version+refineVersion (Version v) i = Version (v ++ [i])+