From 2ad3334b26648157f7c7e2c584b3eaf99b9bce89 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Nov 2014 20:28:16 -0400 Subject: propellor spin --- src/Propellor/CmdLine.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/CmdLine.hs') diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs index 3cb6715e..ab6d8619 100644 --- a/src/Propellor/CmdLine.hs +++ b/src/Propellor/CmdLine.hs @@ -51,7 +51,7 @@ processCmdLine = go =<< getArgs go ("--boot":h:[]) = return $ Update h -- for back-compat go ("--continue":s:[]) = case readish s of Just cmdline -> return $ Continue cmdline - Nothing -> errorMessage "--continue serialization failure" + Nothing -> errorMessage $ "--continue serialization failure (" ++ s ++ ")" go (h:[]) | "--" `isPrefixOf` h = usage | otherwise = return $ Run h -- cgit v1.2.3