mirror of
https://github.com/koalaman/shellcheck
synced 2025-07-06 13:01:39 -07:00
Use the Identity monad to avoid unnecessary uses of fromJust
This commit is contained in:
parent
61b073d507
commit
aaffe38198
4 changed files with 10 additions and 7 deletions
|
@ -30,6 +30,7 @@ import ShellCheck.Regex
|
|||
import Control.Monad
|
||||
import Control.Monad.RWS
|
||||
import Data.Char
|
||||
import Data.Functor.Identity
|
||||
import Data.List
|
||||
import Data.Maybe
|
||||
import qualified Data.Map as Map
|
||||
|
@ -488,7 +489,7 @@ checkBraceExpansionVars = ForShell [Bash] f
|
|||
T_DollarExpansion {} -> return "$"
|
||||
T_DollarArithmetic {} -> return "$"
|
||||
_ -> return "-"
|
||||
toString t = fromJust $ getLiteralStringExt literalExt t
|
||||
toString t = runIdentity $ getLiteralStringExt literalExt t
|
||||
isEvaled t = do
|
||||
cmd <- getClosestCommandM t
|
||||
return $ maybe False (`isUnqualifiedCommand` "eval") cmd
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue