diff options
author | Ryan Newton <rrnewton@gmail.com> | 2011-10-06 14:52:59 -0400 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2011-10-06 20:19:12 +0100 |
commit | 0d4c9cd7fa93671ae496eba1496c01ba16168965 (patch) | |
tree | d3253df7c04275dfb71128e58be13ef12495046b /libraries/base/Text | |
parent | ec96cd6cb49bd2e180baa1590f2f84704b1490ff (diff) | |
download | haskell-0d4c9cd7fa93671ae496eba1496c01ba16168965.tar.gz |
Minor: replace undefined uses with error as mentioned in ticket #5532
Diffstat (limited to 'libraries/base/Text')
-rw-r--r-- | libraries/base/Text/Printf.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/Text/Printf.hs b/libraries/base/Text/Printf.hs index 021f670e1b..0ef936480d 100644 --- a/libraries/base/Text/Printf.hs +++ b/libraries/base/Text/Printf.hs @@ -111,12 +111,12 @@ instance (IsChar c) => PrintfType [c] where instance PrintfType (IO a) where spr fmts args = do putStr (uprintf fmts (reverse args)) - return undefined + return (error "PrintfType (IO a): result should not be used.") instance HPrintfType (IO a) where hspr hdl fmts args = do hPutStr hdl (uprintf fmts (reverse args)) - return undefined + return (error "HPrintfType (IO a): result should not be used.") instance (PrintfArg a, PrintfType r) => PrintfType (a -> r) where spr fmts args = \ a -> spr fmts (toUPrintf a : args) |