Add exhaustive patterns to FromJSON Role instance

When someone enters something like role=mgr, return a helpful error message to
the user.

Note: I should enable the exhaustive patterns check for GHC.

1 files changed, 1 insertions, 0 deletions

diff --git a/src/Types.hs b/src/Types.hs
index 5026b97383e6..48c26caef0cc 100644
--- a/src/Types.hs
+++ b/src/Types.hs
@@ -114,6 +114,7 @@ instance FromJSON Role where
       "user" -> pure RegularUser
       "manager" -> pure Manager
       "admin" -> pure Admin
+      _ -> fail "Expected \"user\" or \"manager\" or \"admin\""
 
 instance ToField Role where
   toField RegularUser = SQLText "user"