From a3732300e1c4dfa14a7ba9d7367ebbef914d8398 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Sat, 1 Aug 2020 11:46:41 +0100 Subject: 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. --- src/Types.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Types.hs') 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" -- cgit 1.4.1