From 897f030f68ff847c03494fbdd4104d1f8dfad9fe Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 21 Nov 2013 02:00:43 -0400 Subject: simplify --- git-repair.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/git-repair.hs b/git-repair.hs index 5a092d3..ce1444f 100644 --- a/git-repair.hs +++ b/git-repair.hs @@ -18,10 +18,10 @@ data Settings = Settings parseSettings :: Parser Settings parseSettings = Settings - <$> switch forceopt - where - forceopt = long "force" + <$> switch + ( long "force" <> help "Force repair, even if data is lost" + ) main :: IO () main = execParser opts >>= repair -- cgit v1.2.3