From d9cdfba6dfdaf09e30ee838c2e7435e114953d3f Mon Sep 17 00:00:00 2001 From: Egor Tensin Date: Mon, 14 Dec 2015 20:06:13 +0300 Subject: strip extra whitespace --- RemovePath.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'RemovePath.hs') diff --git a/RemovePath.hs b/RemovePath.hs index 50c4ca2..5fd6d6d 100644 --- a/RemovePath.hs +++ b/RemovePath.hs @@ -19,7 +19,7 @@ main = do rawArgs <- getArgs case getOpt Permute optionDescription rawArgs of (actions, args, []) -> do - options <- foldl (>>=) (return defaultOptions) actions + options <- foldl (>>=) (return defaultOptions) actions case args of [path] -> removePath path options _ -> invalidNumberOfArguments -- cgit v1.2.3