getExpense :: ReadP Expense
getExpense = do _ <- parseSpaces
                a <- getAmount
                _ <- parseSpaces
                d <- getDate
                _ <- parseSpaces
                t <- getTags
                _ <- parseSpaces
                n <- getNote
                _ <- parseSpaces
                return Expense { amountOf = a
                               , dateOf   = d
                               , tagsOf   = t
                               , noteOf   = n
                               }
getExpense :: ReadP Expense
getExpense = do _ <- parseSpaces
                a <- getAmount
                _ <- parseSpaces
                d <- getDate
                _ <- parseSpaces
                t <- getTags
                _ <- parseSpaces
                n <- getNote
                _ <- parseSpaces
                return Expense { amountOf = a
                               , dateOf   = d
                               , tagsOf   = t
                               , noteOf   = n
                               }
getExpense = do _ <- parseSpaces
                a <- getAmount
                _ <- parseSpaces
                d <- getDate
                _ <- parseSpaces
                t <- getTags
                _ <- parseSpaces
                n <- getNote
                _ <- parseSpaces
                return Expense { amountOf = a
                               , dateOf   = d
                               , tagsOf   = t
                               , noteOf   = n
                               }