case-insensitive parsing of NotificationReason

Author: phadej

CHANGELOG.md

@@ -2,16 +2,20 @@
 
 ## Changes for 0.22
 
-  [#370](https://github.com/phadej/github/pull/370)
 - Type-class for various auth methods
   [#365](https://github.com/phadej/github/pull/365)
 - Throw on non-200 responses
   [#350](https://github.com/phadej/github/pull/350)
 - Add extension point for (preview) media types
+  [#370](https://github.com/phadej/github/pull/370)
 - Add missing webhook event types
   [#359](https://github.com/phadej/github/pull/359)
+- Add invitation endpoint
+  [#360](https://github.com/phadej/github/pull/360)
 - Add notifications endpoints
   [#324](https://github.com/phadej/github/pull/324)
+- Case insensitive enum parsing
+  [#373](https://github.com/phadej/github/pull/373)
 - Update dependencies
   [#364](https://github.com/phadej/github/pull/364)
   [#368](https://github.com/phadej/github/pull/368)

src/GitHub/Data/Activities.hs

@@ -12,6 +12,8 @@ import GitHub.Internal.Prelude
 
 import Prelude ()
 
+import qualified Data.Text as T
+
 data RepoStarred = RepoStarred
     { repoStarredStarredAt :: !UTCTime
     , repoStarredRepo      :: !Repo
@@ -65,18 +67,18 @@ instance NFData NotificationReason where rnf = genericRnf
 instance Binary NotificationReason
 
 instance FromJSON NotificationReason where
-    parseJSON = withText "NotificationReason" $ \t -> case t of
-        "assign" -> pure AssignReason
-        "author" -> pure AuthorReason
-        "comment" -> pure CommentReason
-        "invitation" -> pure InvitationReason
-        "manual" -> pure ManualReason
-        "mention" -> pure MentionReason
+    parseJSON = withText "NotificationReason" $ \t -> case T.toLower t of
+        "assign"           -> pure AssignReason
+        "author"           -> pure AuthorReason
+        "comment"          -> pure CommentReason
+        "invitation"       -> pure InvitationReason
+        "manual"           -> pure ManualReason
+        "mention"          -> pure MentionReason
         "review_requested" -> pure ReviewRequestedReason
-        "state_change" -> pure StateChangeReason
-        "subscribed" -> pure SubscribedReason
-        "team_mention" -> pure TeamMentionReason
-        _ -> fail $ "Unknown NotificationReason " ++ show t
+        "state_change"     -> pure StateChangeReason
+        "subscribed"       -> pure SubscribedReason
+        "team_mention"     -> pure TeamMentionReason
+        _                  -> fail $ "Unknown NotificationReason " ++ show t
 
 data Notification = Notification
     -- XXX: The notification id field type IS in fact string. Not sure why gh