Fix parsing error

This commit is contained in:
Michael Snoyman 2015-05-11 20:42:19 +03:00
parent c04686aad0
commit 7f3bb119f4

View File

@ -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