From f4acef58b18eee50eba2c6b8e76880f0fa3db971 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 31 Jul 2017 07:08:34 -0700
Subject: [PATCH] lib: doctests: refactor, include Text.*

---
 hledger-lib/tests/doctests.hs | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/hledger-lib/tests/doctests.hs b/hledger-lib/tests/doctests.hs
index 0ef660fea..82b666c50 100644
--- a/hledger-lib/tests/doctests.hs
+++ b/hledger-lib/tests/doctests.hs
@@ -1,10 +1,14 @@
 {-# LANGUAGE PackageImports #-}
 
 import Data.List
+import Data.Monoid
 import "Glob" System.FilePath.Glob
 import Test.DocTest
 
-main = do
-  fs1 <- filter (not . isInfixOf "/.") <$> glob "Hledger/**/*.hs"
-  -- fs2 <- filter (not . isInfixOf "/.") <$> glob "other/ledger-parse/**/*.hs"
-  doctest $ ["Hledger.hs"] ++ fs1 -- ++ fs2
+main =
+     pure ["Hledger.hs"]
+  <> glob "Hledger/**/*.hs" 
+  <> glob "Text/**/*.hs"
+  -- <> glob "other/ledger-parse/**/*.hs"
+  >>= pure . filter (not . isInfixOf "/.") 
+  >>= doctest