From 8055fbc255ee4864dd16c5bce71605244293b103 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Sun, 24 Sep 2017 17:48:27 +0200 Subject: [PATCH] Fix documentation error --- src/UI/Butcher/Monadic.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/UI/Butcher/Monadic.hs b/src/UI/Butcher/Monadic.hs index 3e9dd88..a701f87 100644 --- a/src/UI/Butcher/Monadic.hs +++ b/src/UI/Butcher/Monadic.hs @@ -79,8 +79,8 @@ runCmdParserWithHelpDesc mProgName input cmdF = -- | Wrapper around 'runCmdParser' for very simple usage: Accept a @String@ --- input and return only the output from the parser, returning @Nothing@ in --- any error case. +-- input and return only the output from the parser, or a plain error string +-- on failure. runCmdParserSimple :: String -> CmdParser Identity out () -> Either String out runCmdParserSimple s p = case snd $ runCmdParser Nothing (InputString s) p of Left e -> Left $ parsingErrorString e