From 5bebc2beb097a447c7af2d2ec01128173c67ec2e Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 6 Jul 2014 14:08:45 -0700
Subject: [PATCH] regex haddock fix

---
 hledger-lib/Hledger/Utils/Regex.hs | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/hledger-lib/Hledger/Utils/Regex.hs b/hledger-lib/Hledger/Utils/Regex.hs
index 53cf993c2..37219347b 100644
--- a/hledger-lib/Hledger/Utils/Regex.hs
+++ b/hledger-lib/Hledger/Utils/Regex.hs
@@ -13,10 +13,6 @@ These should
 - support unicode
 - be cross-platform, not requiring C libraries
 
-They currently can
-- die on malformed regexps
-- be slow (regexpr)
-
 -}
 
 module Hledger.Utils.Regex (
@@ -79,15 +75,17 @@ regexSplit = splitRegexPR
 
 -- regex-tdfa
 
+-- | Convert our string-based regexps to real ones. Can fail if the
+-- string regexp is malformed.
+toRegex :: Regexp -> Regex
+toRegex = makeRegexOpts compOpt execOpt
+
 compOpt :: CompOption
 compOpt = defaultCompOpt
 
 execOpt :: ExecOption
 execOpt = defaultExecOpt
 
-toRegex :: Regexp -> Regex
-toRegex = makeRegexOpts compOpt execOpt
-
 -- regexMatch' :: RegexContext Regexp String a => Regexp -> String -> a
 -- regexMatch' r s = s =~ (toRegex r)