From ba67e4c0a98e87c6c3f97855f7f3091dc6a91b9b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 15 Oct 2008 22:18:05 +0000
Subject: [PATCH] remove dead code

---
 Ledger/Utils.hs | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/Ledger/Utils.hs b/Ledger/Utils.hs
index 2305dd856..97babfddb 100644
--- a/Ledger/Utils.hs
+++ b/Ledger/Utils.hs
@@ -59,14 +59,6 @@ containsRegex r s = case matchRegex r s of
                       Just _ -> True
                       otherwise -> False
 
--- | Convert a list of strings (possibly with regular expression syntax)
--- to a regular expression matching any of them, or a wildcard if there
--- are none.
-combinedRegex :: [String] -> Regex
-combinedRegex [] = mkRegex ".*"
-combinedRegex args = mkRegex $ concat $ ["("] ++ intersperse "|" args ++ [")"]
-
-
 -- time
 
 -- | Parse a date-time string to a time type, or raise an error.