diff --git a/src/Aggreact/Users/Types.hs b/src/Aggreact/Users/Types.hs index 6f0a8b5..b2d287e 100644 --- a/src/Aggreact/Users/Types.hs +++ b/src/Aggreact/Users/Types.hs @@ -89,9 +89,9 @@ bUserToUser bc = { nick = Nick (_nick bc) , email = Email (_email bc) , password = HashedPassword (_password bc) - , role = (case _role bc of - "Admin" -> Admin - _ -> User) + , role = case _role bc of + "Admin" -> Admin + _ -> User , trust = _trust bc } DefaultMetas