haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-17 05:15:49 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added StackageBranch

Browse Source
This commit is contained in:
Konstantin Zudov 2015-10-16 01:37:29 +03:00
parent 1e5614ca59
commit be32c1a177
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Types.hs
View File

@ -20,6 +20,19 @@ instance PathPiece LtsMajor where
Right (x, "") <- Just $ Reader.decimal t1 Right (x, "") <- Just $ Reader.decimal t1
Just $ LtsMajor x Just $ LtsMajor x
data StackageBranch = LtsMajorBranch Int
| LtsBranch
| NightlyBranch
deriving (Eq, Read, Show)
instance PathPiece StackageBranch where
toPathPiece NightlyBranch = "nightly"
toPathPiece LtsBranch = "lts"
toPathPiece (LtsMajorBranch x) = toPathPiece $ LtsMajor x
fromPathPiece "nightly" = Just NightlyBranch
fromPathPiece "lts" = Just LtsBranch
fromPathPiece x = (\(LtsMajor x') -> LtsMajorBranch x') <$> fromPathPiece x
newtype PackageName = PackageName { unPackageName :: Text } newtype PackageName = PackageName { unPackageName :: Text }
deriving (Show, Read, Typeable, Eq, Ord, Hashable, PathPiece, ToMarkup, PersistField, IsString) deriving (Show, Read, Typeable, Eq, Ord, Hashable, PathPiece, ToMarkup, PersistField, IsString)
instance PersistFieldSql PackageName where instance PersistFieldSql PackageName where