From 6ee67cd04ffbce375d7f10e74a5d9eb742d6428d Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 22 Oct 2014 15:45:52 +0000 Subject: Various small changes for improved documentation --- src/compiler/GF/Infra/UseIO.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Infra/UseIO.hs') 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 -- cgit v1.2.3