Log exceptions as GmException
This commit is contained in:
parent
f4aea2c08a
commit
1f14ff08c6
@ -66,7 +66,7 @@ splits file lineNo colNo =
|
|||||||
return (fourInts bndLoc, t)
|
return (fourInts bndLoc, t)
|
||||||
where
|
where
|
||||||
handler (SomeException ex) = do
|
handler (SomeException ex) = do
|
||||||
gmLog GmDebug "splits" $
|
gmLog GmException "splits" $
|
||||||
text "" $$ nest 4 (showDoc ex)
|
text "" $$ nest 4 (showDoc ex)
|
||||||
emptyResult =<< options
|
emptyResult =<< options
|
||||||
|
|
||||||
|
@ -361,7 +361,7 @@ refine file lineNo colNo (Expression expr) =
|
|||||||
in (fourInts loc, doParen paren txt)
|
in (fourInts loc, doParen paren txt)
|
||||||
where
|
where
|
||||||
handler (SomeException ex) = do
|
handler (SomeException ex) = do
|
||||||
gmLog GmDebug "refining" $
|
gmLog GmException "refining" $
|
||||||
text "" $$ nest 4 (showDoc ex)
|
text "" $$ nest 4 (showDoc ex)
|
||||||
emptyResult =<< options
|
emptyResult =<< options
|
||||||
|
|
||||||
@ -450,7 +450,7 @@ auto file lineNo colNo =
|
|||||||
, map (doParen paren) $ nub (djinnsEmpty ++ djinns))
|
, map (doParen paren) $ nub (djinnsEmpty ++ djinns))
|
||||||
where
|
where
|
||||||
handler (SomeException ex) = do
|
handler (SomeException ex) = do
|
||||||
gmLog GmDebug "auto-refining" $
|
gmLog GmException "auto-refining" $
|
||||||
text "" $$ nest 4 (showDoc ex)
|
text "" $$ nest 4 (showDoc ex)
|
||||||
emptyResult =<< options
|
emptyResult =<< options
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user