From 6f5fdc3564e931d69640a3eac677d86fddb73df1 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 10 Mar 2007 02:26:56 +0000
Subject: [PATCH] allow / and _ in account names

---
 Parse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Parse.hs b/Parse.hs
index 2fe961357..7145dbe11 100644
--- a/Parse.hs
+++ b/Parse.hs
@@ -219,7 +219,7 @@ ledgertransaction = do
 
 -- account names may have single spaces in them, and are terminated by two or more spaces
 ledgeraccount :: Parser String
-ledgeraccount = many1 (alphaNum <|> char ':' <|> try (do {spacenonewline; do {notFollowedBy spacenonewline; return ' '}}))
+ledgeraccount = many1 (alphaNum <|> char ':' <|> char '/' <|> char '_' <|> try (do {spacenonewline; do {notFollowedBy spacenonewline; return ' '}}))
 
 ledgeramount :: Parser Amount
 ledgeramount = try (do