docs
This commit is contained in:
		
							parent
							
								
									1e739d0c1b
								
							
						
					
					
						commit
						2f43748d7d
					
				
							
								
								
									
										24
									
								
								NOTES
									
									
									
									
									
								
							
							
						
						
									
										24
									
								
								NOTES
									
									
									
									
									
								
							@ -18,6 +18,27 @@ We aim to make reliable, maintainable, usable software, sustainably.
 | 
				
			|||||||
 | 
					
 | 
				
			||||||
* to do
 | 
					* to do
 | 
				
			||||||
** errors
 | 
					** errors
 | 
				
			||||||
 | 
					*** $ hledger -f new.ledger add
 | 
				
			||||||
 | 
					hledger: new.ledger: openFile: does not exist (No such file or directory)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					*** runhaskell hledger.hs reg -p 'daily this month' -E
 | 
				
			||||||
 | 
					hledger.hs: Prelude.head: empty list
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					*** joyful> make ci
 | 
				
			||||||
 | 
					["/repos/hledger/hledger","web","--debug"]                                                            |
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					*** ghci> readLedger "~/src/hledger/sample.ledger"
 | 
				
			||||||
 | 
					Exception: ~/src/hledger/sample.ledger: openFile: does not exist (No such file or directory)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					*** not:
 | 
				
			||||||
 | 
					hledger: user error (Text.Regex.Posix.String died: (ReturnCode 14,"empty (sub)expression"))
 | 
				
			||||||
 | 
					*** histogram stops after last occupied interval
 | 
				
			||||||
 | 
					*** hledger: could not balance this transaction, amounts do not add up to zero:
 | 
				
			||||||
 | 
					2007/12/08 * bus
 | 
				
			||||||
 | 
					    expenses:transportation:bus                $1.25
 | 
				
			||||||
 | 
					    assets:cash                                  $-1
 | 
				
			||||||
 | 
					    assets:coins:quarters                     $-0.25
 | 
				
			||||||
 | 
					
 | 
				
			||||||
** docs/marketing/packaging
 | 
					** docs/marketing/packaging
 | 
				
			||||||
*** streamline - less is more
 | 
					*** streamline - less is more
 | 
				
			||||||
*** automate
 | 
					*** automate
 | 
				
			||||||
@ -30,6 +51,7 @@ We aim to make reliable, maintainable, usable software, sustainably.
 | 
				
			|||||||
***** gmane description
 | 
					***** gmane description
 | 
				
			||||||
***** darcsweb description
 | 
					***** darcsweb description
 | 
				
			||||||
**** keep Options.hs and README option list in sync
 | 
					**** keep Options.hs and README option list in sync
 | 
				
			||||||
 | 
					**** discover commands for --help
 | 
				
			||||||
**** accouncements
 | 
					**** accouncements
 | 
				
			||||||
*** document smart dates, period expressions, display expressions
 | 
					*** document smart dates, period expressions, display expressions
 | 
				
			||||||
*** develop funding process
 | 
					*** develop funding process
 | 
				
			||||||
@ -281,6 +303,8 @@ competitors/fellow niche inhabitants
 | 
				
			|||||||
*** graph and reduce dependencies
 | 
					*** graph and reduce dependencies
 | 
				
			||||||
*** pair programming
 | 
					*** pair programming
 | 
				
			||||||
** features/wishlist
 | 
					** features/wishlist
 | 
				
			||||||
 | 
					*** simplify hours again - no default -p, instead alias today="hours -ptoday"
 | 
				
			||||||
 | 
					*** allow no command or unordered command with pattern args
 | 
				
			||||||
*** --flat timelog balance report option for clients
 | 
					*** --flat timelog balance report option for clients
 | 
				
			||||||
*** alternative easy timelog format
 | 
					*** alternative easy timelog format
 | 
				
			||||||
*** better web gui
 | 
					*** better web gui
 | 
				
			||||||
 | 
				
			|||||||
							
								
								
									
										3
									
								
								Utils.hs
									
									
									
									
									
								
							
							
						
						
									
										3
									
								
								Utils.hs
									
									
									
									
									
								
							@ -21,12 +21,11 @@ import qualified Data.Map as Map (lookup)
 | 
				
			|||||||
withLedgerDo :: [Opt] -> [String] -> ([Opt] -> [String] -> Ledger -> IO ()) -> IO ()
 | 
					withLedgerDo :: [Opt] -> [String] -> ([Opt] -> [String] -> Ledger -> IO ()) -> IO ()
 | 
				
			||||||
withLedgerDo opts args cmd = do
 | 
					withLedgerDo opts args cmd = do
 | 
				
			||||||
  f <- ledgerFilePathFromOpts opts
 | 
					  f <- ledgerFilePathFromOpts opts
 | 
				
			||||||
  -- kludgily read the file a second time to get the full text,
 | 
					  -- kludgily read the file a second time to get the full text. Only the ui command needs it.
 | 
				
			||||||
  -- kludgily try not to fail if it's stdin. XXX
 | 
					  -- kludgily try not to fail if it's stdin. XXX
 | 
				
			||||||
  rawtext <- readFile $ if f == "-" then "/dev/null" else f
 | 
					  rawtext <- readFile $ if f == "-" then "/dev/null" else f
 | 
				
			||||||
  t <- getCurrentLocalTime
 | 
					  t <- getCurrentLocalTime
 | 
				
			||||||
  let runcmd = cmd opts args . filterAndCacheLedgerWithOpts opts args t rawtext . (\rl -> rl{filepath=f})
 | 
					  let runcmd = cmd opts args . filterAndCacheLedgerWithOpts opts args t rawtext . (\rl -> rl{filepath=f})
 | 
				
			||||||
 | 
					 | 
				
			||||||
  return f >>= runErrorT . parseLedgerFile t >>= either (hPutStrLn stderr) runcmd
 | 
					  return f >>= runErrorT . parseLedgerFile t >>= either (hPutStrLn stderr) runcmd
 | 
				
			||||||
 | 
					
 | 
				
			||||||
-- | Get a Ledger from the given string and options, or raise an error.
 | 
					-- | Get a Ledger from the given string and options, or raise an error.
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user