7x31/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck.git synced 2025-08-08 11:14:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Simplify mockedSystemInterface

Browse Source
This commit is contained in:
Joseph C. Sible
2020-02-09 23:50:48 -05:00
parent 42abcb7ae2
commit 85c49a8af9
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/ShellCheck/Interface.hs
View File

@@ -316,10 +316,10 @@ mockedSystemInterface files = SystemInterface {
siGetConfig = const $ return Nothing siGetConfig = const $ return Nothing
} }
where where
rf file = rf file = return $
case filter ((== file) . fst) files of case find ((== file) . fst) files of
[] -> return $ Left "File not included in mock." Nothing -> Left "File not included in mock."
[(_, contents)] -> return $ Right contents Just (_, contents) -> Right contents
fs _ _ file = return file fs _ _ file = return file
mockRcFile rcfile mock = mock { mockRcFile rcfile mock = mock {