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

Fix parsing error

Browse Source
This commit is contained in:
Michael Snoyman 2015-05-11 20:42:19 +03:00
parent c04686aad0
commit 7f3bb119f4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Stackage/Database.hs
View File

@ -22,7 +22,7 @@ instance PathPiece SnapName where
fromPathPiece t0 = fromPathPiece t0 =
nightly <|> lts nightly <|> lts
where where
nightly = stripPrefix "nightly-" t0 >>= readMay nightly = fmap SNNightly $ stripPrefix "nightly-" t0 >>= readMay
lts = do lts = do
t1 <- stripPrefix "lts-" t0 t1 <- stripPrefix "lts-" t0
Right (x, t2) <- Just $ decimal t1 Right (x, t2) <- Just $ decimal t1