Resolve haskell-github#205

phadej · phadej · commit 4206c647ffd8 · 2016-05-13T19:58:34.000+03:00
diff --git a/src/GitHub/Data/PullRequests.hs b/src/GitHub/Data/PullRequests.hs
@@ -17,7 +17,7 @@ import GitHub.Data.Repos       (Repo)
 import Control.DeepSeq          (NFData (..))
 import Control.DeepSeq.Generics (genericRnf)
 import Data.Aeson.Compat        (FromJSON (..), ToJSON (..), Value (..), object,
-                                 withObject, (.:), (.:?), (.=))
+                                 withObject, (.!=), (.:), (.:?), (.=))
 import Data.Aeson.Types         (Object, Parser)
 import Data.Binary.Orphans      (Binary)
 import Data.Data                (Data, Typeable)
@@ -184,7 +184,7 @@ instance FromJSON SimplePullRequest where
         <*> o .: "number"
         <*> o .: "html_url"
         <*> o .: "updated_at"
-        <*> o .: "body"
+        <*> o .:? "body" .!= "" -- TODO: no body is treated as empty
         <*> o .: "issue_url"
         <*> o .: "diff_url"
         <*> o .: "url"
diff --git a/src/GitHub/Request.hs b/src/GitHub/Request.hs
@@ -157,7 +157,7 @@ executeRequestWithMgr' :: Manager
 executeRequestWithMgr' mgr req = runExceptT $
     execute req
   where
-    execute :: Request k a -> ExceptT Error IO a
+    execute :: Request 'False a -> ExceptT Error IO a
     execute req' = case req' of
         Query {} -> do
             httpReq <- makeHttpRequest Nothing req
diff --git a/stack-nightly.yaml b/stack-nightly.yaml
@@ -1,4 +1,4 @@
-resolver: nightly-2016-01-08
+resolver: nightly-2016-05-13
 packages:
 - '.'
 - 'samples/'
