makeUser :: SignUpData -> ApiResponse InternalUser
makeUser (SignUpRequest creds key salt, Nothing) = success $
    InternalUser (cName creds) key encPass []
    where encPass = B.fromStrict . getEncryptedPass $
              encryptPass' salt (Pass . B.toStrict $ cPass creds)
makeUser :: SignUpData -> ApiResponse InternalUser
makeUser (SignUpRequest creds key salt, Nothing) = success $
    InternalUser (cName creds) key encPass []
    where encPass = B.fromStrict . getEncryptedPass $
              encryptPass' salt (Pass . B.toStrict $ cPass creds)
makeUser (SignUpRequest creds key salt, Nothing) = success $
    InternalUser (cName creds) key encPass []
    where encPass = B.fromStrict . getEncryptedPass $
              encryptPass' salt (Pass . B.toStrict $ cPass creds)