Remove unnecessary fromMaybes

This commit is contained in:
Joseph C. Sible 2020-02-09 21:50:40 -05:00
parent 8e9290badb
commit a223a7a5a5
2 changed files with 3 additions and 4 deletions

View file

@ -2823,11 +2823,10 @@ checkReadWithoutR _ t@T_SimpleCommand {} | t `isUnqualifiedCommand` "read"
info (getId $ getCommandTokenOrThis t) 2162 "read without -r will mangle backslashes."
where
flags = getAllFlags t
has_t0 = fromMaybe False $ do
has_t0 = Just "0" == do
parsed <- getOpts flagsForRead flags
t <- lookup "t" parsed
str <- getLiteralString t
return $ str == "0"
getLiteralString t
checkReadWithoutR _ _ = return ()