diff options
Diffstat (limited to 'src/compiler/GF/Infra/UseIO.hs')
| -rw-r--r-- | src/compiler/GF/Infra/UseIO.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Infra/UseIO.hs b/src/compiler/GF/Infra/UseIO.hs index 80677658a..b9ff9c2e5 100644 --- a/src/compiler/GF/Infra/UseIO.hs +++ b/src/compiler/GF/Infra/UseIO.hs @@ -210,7 +210,7 @@ putPointE v opts msg act = do return a -- | Because GHC adds the confusing text "user error" for failures caused by --- calls to fail. +-- calls to 'fail'. ioErrorText e = if isUserError e then ioeGetErrorString e else show e |