github/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck synced 2025-07-30 11:39:20 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

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/GCC.hs
View file

@ -22,6 +22,7 @@ module ShellCheck.Formatter.GCC (format) where
import ShellCheck.Interface
import ShellCheck.Formatter.Format
import Data.Either
import Data.List
import GHC.Exts
import System.IO
@ -44,7 +45,7 @@ outputAll cr sys = mapM_ f groups
f group = do
let filename = sourceFile (head group)
result <- (siReadFile sys) filename
let contents = either (const "") id result
let contents = fromRight "" result
outputResult filename contents group
outputResult filename contents warnings = do