From e5569e6862e24d978361f078eaf6e50e7dc86bee Mon Sep 17 00:00:00 2001
From: Tuncer Ayaz <tuncer.ayaz@gmail.com>
Date: Wed, 8 Aug 2012 23:28:00 +0200
Subject: [PATCH] rebar_qc: use lists:flatmap/2

---
 src/rebar_qc.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/rebar_qc.erl b/src/rebar_qc.erl
index 479049f..051400f 100644
--- a/src/rebar_qc.erl
+++ b/src/rebar_qc.erl
@@ -119,7 +119,8 @@ run(Config, QC, QCOpts) ->
     %% as well.
     {ok, _SrcErls} = rebar_erlc_compiler:test_compile(Config),
 
-    case lists:flatten([qc_module(QC, QCOpts, M) || M <- find_prop_mods()]) of
+    TestModule = fun(M) -> qc_module(QC, QCOpts, M) end,
+    case lists:flatmap(TestModule, find_prop_mods()) of
         [] ->
             true = code:set_path(CodePath),
             ok;