From 4fc984ce75fb6b3ecc75e032938430404fd28f5e Mon Sep 17 00:00:00 2001
From: Joshua Clayton <joshua.clayton@gmail.com>
Date: Sat, 7 May 2016 16:07:43 -0400
Subject: [PATCH] Fully extract parseSearchRunner

---
 app/Main.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index a00ab2b..ebdd039 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -45,8 +45,10 @@ parseOptions :: Parser Options
 parseOptions =
     Options
     <$> parseSearchRunner
-        (short 'P' <> long "no-progress" <> help "Don't display progress during analysis")
 
-parseSearchRunner :: Mod FlagFields SearchRunner -> Parser SearchRunner
+parseSearchRunner :: Parser SearchRunner
 parseSearchRunner =
-    flag SearchWithProgress SearchWithoutProgress
+    flag SearchWithProgress SearchWithoutProgress $
+        short 'P'
+        <> long "no-progress"
+        <> help "Don't display progress during analysis"