-import Control.Monad (when)
-import Data.List ((\\), intercalate, intersperse)
+import Control.Monad (unless, when)
+import Data.List ((\\), intercalate)
import Data.Maybe (catMaybes, isNothing)
import Data.String.Utils (splitWs)
import Data.Maybe (catMaybes, isNothing)
import Data.String.Utils (splitWs)
-- | Take a list of Strings, and return a regular expression matching
-- any of them.
alternate :: [String] -> String
-- | Take a list of Strings, and return a regular expression matching
-- any of them.
alternate :: [String] -> String
-- First, check for any errors that occurred while parsing
-- the command line options.
errors <- CommandLine.parse_errors
-- First, check for any errors that occurred while parsing
-- the command line options.
errors <- CommandLine.parse_errors
hPutStrLn stderr (concat errors)
putStrLn CommandLine.help_text
exitWith (ExitFailure exit_args_parse_failed)
hPutStrLn stderr (concat errors)
putStrLn CommandLine.help_text
exitWith (ExitFailure exit_args_parse_failed)
-- The input function we receive here should know what to read.
inputfunc <- (CommandLine.input_function)
-- The input function we receive here should know what to read.
inputfunc <- (CommandLine.input_function)