github/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck synced 2025-07-15 09:33:09 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use fromRight instead of reimplementing it

Browse source
This commit is contained in:
Joseph C. Sible 2020-04-05 22:13:39 -04:00
parent 01f4423465
commit 64c31d9142
3 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ShellCheck/Formatter/TTY.hs
View file

@ -25,6 +25,7 @@ import ShellCheck.Formatter.Format
import Control.Monad
import Data.Array
import Data.Either
import Data.Foldable
import Data.Ord
import Data.IORef
@ -122,7 +123,7 @@ outputResult options ref result sys = do
outputForFile color sys comments = do
let fileName = sourceFile (head comments)
result <- (siReadFile sys) fileName
let contents = either (const "") id result
let contents = fromRight "" result
let fileLinesList = lines contents
let lineCount = length fileLinesList
let fileLines = listArray (1, lineCount) fileLinesList