simonmichael

-- | From a list of account names, select those which are direct                                                                                                                   
-- subaccounts of the given account name.                                                                                                                                          
subAccountNamesFrom ∷ [AccountName] → AccountName → [AccountName]
subAccountNamesFrom accts a = filter (`isSubAccountNameOf` a) accts

accountNameTreeFrom accts =
   Node "top" $ unfoldForest (λa → (a, subs a)) $ topAccountNames accts
        where
          subs = subAccountNamesFrom allaccts
          allaccts = expandAccountNames accts

simonmichael

~$ ghc-pkg list
/Library/Frameworks/GHC.framework/Versions/610/usr/lib/ghc-6.10.3/./package.conf:
    Cabal-1.6.0.3, HUnit-1.2.0.3, QuickCheck-1.2.0.0, array-0.2.0.0,
    base-3.0.3.1, base-4.1.0.0, bytestring-0.9.1.4, containers-0.2.0.1,
    directory-1.0.0.3, (dph-base-0.3), (dph-par-0.3),
    (dph-prim-interface-0.3), (dph-prim-par-0.3), (dph-prim-seq-0.3),
    (dph-seq-0.3), extensible-exceptions-0.1.1.0, filepath-1.1.0.2,
    (ghc-6.10.3), ghc-prim-0.1.0.0, haddock-2.4.2, haskell-src-1.0.1.3,
    haskell98-1.0.1.0, hpc-0.5.0.3, html-1.0.1.2, integer-0.1.0.1,
    mtl-1.1.0.2, network-2.2.1, old-locale-1.0.0.1, old-time-1.0.0.2,

simonmichael

<VirtualHost *>
  ServerName hledger.org
  ServerAlias www.hledger.org
  Alias /icons/ "/usr/share/apache2/icons/"
  RewriteEngine on
ScriptAlias /awstats.pl /usr/lib/cgi-bin/awstats.pl
RewriteCond %{REQUEST_URI} !^/(cgi-bin|awstats)
  RewriteRule ^(.*) /repos/hledger/website$1 [L]
</VirtualHost>

simonmichael

 95-- | Get the string representation of an amount, based on its commodity's                                                                                                      
 96-- display settings.                                                                                                                                                           
 97showAmount ∷ Amount → String
 98--showAmount a@(Amount (Commodity {symbol=sym,side=side,spaced=spaced}) _ pri)                                                                                                 
 99showAmount a@(Amount (Commodity sym side spaced _ _) _ pri)
100    | sym=="AUTO" = "" -- can display one of these in an error message                                                                                                         
101    | side==L = printf "%s%s%s%s" sym space quantity price
102    | side==R = printf "%s%s%s%s" quantity space sym price
103    where
104      space = if spaced then " " else ""

simonmichael

-- help :: IO ()                                                                                                                                                                  
help = do
    putStrLn "rss2irc [--links] <server> <port> <channel> <nick> <feed-url> <msg-prefix> <interval>"
    exitWith ExitSuccess

main :: IO ()
main = do
    (flags, args, errs) <- getOpt Permute [Option ['l'] ["links"] (NoArg Links) "include link URLs"] `fmap` getArgs
    when (not . null $ errs) help
    let l = Links `elem` flags

simonmichael

$ darcs get --lazy http://code.haskell.org/gentoo/gentoo-haskell
This is the gentoo-haskell darcs overlay.

Please report bugs in the IRC channel #gentoo-haskell on the freenode
network, or send mail to haskell@gentoo.org.

Please do *not* report bugs from this overlay at bugs.gentoo.org.
**********************
Finished getting.

simonmichael

 61       -- qooxdoo ui                                                                                                                                                
 62       -- , dir "registercheckingdata" [method GET $ ok $ setContentType "text/plain" $ toResponse $ showRegisterReport (opts) ["checking"] l]                      
 63       -- , dir "index.html" [ fileServe ["index.html"] "qooxledger" ]                                                                                              
 64       -- , dir "script"  [ withExpiresHeaders $ fileServe ["qooxledger.js","qooxledger-0.js"] "qooxledger/script" ]                                                
 65       -- , dir "resource" [dir "qooxledger" [ withExpiresHeaders $ fileServe ["test.png", "office-spreadsheet.png"] "qooxledger/resource/qooxledger" ]]            
 66       -- , browsedir "" "qooxledger" -- serve other resource files, doesn't know mime types                                                                        

simonmichael

$ ps ww 21375
  PID TTY      STAT   TIME COMMAND
21375 pts/33   D+     0:03 /usr/bin/ld --eh-frame-hdr -m elf_x86_64 --hash-style=both -dynamic-linker /lib64/ld-linux-x86-64.so.2 -o /tmp/haskeline-0.6.1.621232/haskeline-0.6.1.6/dist/setup/setup -z relro -u ghczmprim_GHCziTypes_Izh_static_info -u ghczmprim_GHCziTypes_Czh_static_info -u ghczmprim_GHCziTypes_Fzh_static_info -u ghczmprim_GHCziTypes_Dzh_static_info -u base_GHCziPtr_Ptr_static_info -u base_GHCziWord_Wzh_static_info -u base_GHCziInt_I8zh_static_info -u base_GHCziInt_I16zh_static_info -u base_GHCziInt_I32zh_static_info -u base_GHCziInt_I64zh_static_info -u base_GHCziWord_W8zh_static_info -u base_GHCziWord_W16zh_static_info -u base_GHCziWord_W32zh_static_info -u base_GHCziWord_W64zh_static_info -u base_GHCziStable_StablePtr_static_info -u ghczmprim_GHCziTypes_Izh_con_info -u ghczmprim_GHCziTypes_Czh_con_info -u ghczmprim_GHCziTypes_Fzh_con_info -u ghczmprim_GHCziTypes_Dzh_con_info -u base_GHCziPtr_Ptr_con_info -u base_GHCziPtr_FunPtr_con_info -u base_

simonmichael

VirtualHost *>
  ServerName hledger.org
  ServerAlias www.hledger.org
  ServerAlias bugs.hledger.org
  ServerAlias mail.hledger.org
  ServerAlias list.hledger.org

...

  # convenience aliases

simonmichael

0,2,3,4,1

ATM DEPOSIT
assets:accounts:receivable:unknown

(TO|FROM) SAVINGS
assets:bank:wells fargo:prudent reserve savings

ATM WITHDRAWAL
assets:cash