Small warning removal

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
+  , role = case _role bc of
              "Admin" -> Admin
-               _ -> User)
+             _ -> User
   , trust = _trust bc
   }
   DefaultMetas