mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-11 19:58:28 +01:00
Fix parsing error
This commit is contained in:
parent
c04686aad0
commit
7f3bb119f4
@ -22,7 +22,7 @@ instance PathPiece SnapName where
|
||||
fromPathPiece t0 =
|
||||
nightly <|> lts
|
||||
where
|
||||
nightly = stripPrefix "nightly-" t0 >>= readMay
|
||||
nightly = fmap SNNightly $ stripPrefix "nightly-" t0 >>= readMay
|
||||
lts = do
|
||||
t1 <- stripPrefix "lts-" t0
|
||||
Right (x, t2) <- Just $ decimal t1
|
||||
|
||||
Loading…
Reference in New Issue
Block a user