From 7f3bb119f48b05d6dd6e0da8c364750f0dd10dac Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 11 May 2015 20:42:19 +0300
Subject: [PATCH] Fix parsing error

---
 Stackage/Database.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Stackage/Database.hs b/Stackage/Database.hs
index 480bcde..c2fe8b0 100644
--- a/Stackage/Database.hs
+++ b/Stackage/Database.hs
@@ -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