pAcc :: Lens' Posting AccountName
pAcc = lens paccount $ \p y -> p{paccount=y}
pAcc :: Lens' Posting AccountName
pAcc = lens paccount $ \p y -> p{paccount=y}
pAcc = lens paccount $ \p y -> p{paccount=y}