hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adds argument de-structuring to 'rmTool' function & remove the one in its body

Browse Source
This commit is contained in:
Arjun Kathuria 2021-06-22 20:09:26 +05:30
parent 82a704ab44
commit 4ef3622616
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/GHCup.hs
View File

@ -1290,8 +1290,7 @@ rmTool :: ( MonadReader AppState m
=> ListResult => ListResult
-> Excepts '[NotInstalled ] m () -> Excepts '[NotInstalled ] m ()
rmTool tool = do rmTool ListResult {lVer, lTool, lCross} = do
let ListResult {lVer, lTool, lCross} = tool
-- appstate <- ask -- appstate <- ask
case lTool of case lTool of