hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix warning

Browse Source
This commit is contained in:
Daniel Gröber 2015-08-07 07:33:04 +02:00
parent 5fdaa6adea
commit 0abe1d6a53
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Language/Haskell/GhcMod/FillSig.hs
View File

@ -356,8 +356,8 @@ refine file lineNo colNo (Expression expr) =
diffArgs' = length eArgs - length rArgs diffArgs' = length eArgs - length rArgs
diffArgs = if diffArgs' < 0 then 0 else diffArgs' diffArgs = if diffArgs' < 0 then 0 else diffArgs'
iArgs = take diffArgs eArgs iArgs = take diffArgs eArgs
text = initialHead1 expr iArgs (infinitePrefixSupply name) txt = initialHead1 expr iArgs (infinitePrefixSupply name)
in (fourInts loc, doParen paren text) in (fourInts loc, doParen paren txt)
where where
handler (SomeException ex) = do handler (SomeException ex) = do
gmLog GmDebug "refining" $ gmLog GmDebug "refining" $