addEntry :: Maybe VaultEntry -> Vault -> Vault
addEntry (Just entry) (Vault s m es) = Vault s m $ es ++ [entry]
addEntry :: Maybe VaultEntry -> Vault -> Vault
addEntry (Just entry) (Vault s m es) = Vault s m $ es ++ [entry]
addEntry (Just entry) (Vault s m es) = Vault s m $ es ++ [entry]