Make less Hashable (Request) less restrictive

phadej · phadej · commit dd149a469cad · 2016-09-15T12:35:40.000+03:00
diff --git a/src/GitHub/Data/Request.hs b/src/GitHub/Data/Request.hs
@@ -229,13 +229,13 @@ instance Hashable (SimpleRequest k a) where
              `hashWithSalt` ps
              `hashWithSalt` body
 
-instance Hashable a => Hashable (Request k a) where
+instance Hashable (Request k a) where
     hashWithSalt salt (SimpleQuery req) =
         salt `hashWithSalt` (0 :: Int)
              `hashWithSalt` req
     hashWithSalt salt (StatusQuery sm req) =
         salt `hashWithSalt` (1 :: Int)
-             `hashWithSalt` sm
+             `hashWithSalt` map fst sm
              `hashWithSalt` req
     hashWithSalt salt (HeaderQuery h req) =
         salt `hashWithSalt` (2 :: Int)
diff --git a/stack-nightly.yaml b/stack-nightly.yaml
@@ -1,4 +1,4 @@
-resolver: nightly-2016-09-12
+resolver: nightly-2016-09-14
 packages:
 - '.'
 - 'samples/'
