diff options
| -rw-r--r-- | src/Types.hs | 1 |
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" |