Commit 157b4c25 authored by Alexis Williams's avatar Alexis Williams
Browse files

Fix rebasing error in new-clean

parent e5f8dc3f
......@@ -18,7 +18,7 @@ import Distribution.Simple.Setup
import Distribution.Simple.Command
( CommandUI(..), option, reqArg )
import Distribution.Simple.Utils
( info, wrapText )
( info, die', wrapText )
import Distribution.Verbosity
( Verbosity, normal )
......@@ -78,8 +78,8 @@ cleanAction CleanFlags{..} extraArgs _ = do
mdistDirectory = flagToMaybe cleanDistDir
mprojectFile = flagToMaybe cleanProjectFile
unless (null extraArgs) $
die' verbosity $ "'clean' doesn't take any extra arguments: " ++ unwords extraArgs
unless (null extraArgs) $
die' verbosity $ "'clean' doesn't take any extra arguments: " ++ unwords extraArgs
projectRoot <- either throwIO return =<< findProjectRoot Nothing mprojectFile
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment