Small warning removal
This commit is contained in:
parent
e5dae59d49
commit
4adcbea1f4
1 changed files with 3 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue