diff options
| author | Tamar Christina <tamar@zhox.com> | 2015-03-02 11:10:37 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2015-03-02 11:10:37 -0600 |
| commit | efbd3eb10a2741d45b0e25c98674c8da57dac5ab (patch) | |
| tree | be79526098ecf55e3ae4bcddfa8390c32d89afe4 | |
| parent | 31d4f2e9c89e22a91f98b4a4aa0f80af6b07b60f (diff) | |
| download | haskell-efbd3eb10a2741d45b0e25c98674c8da57dac5ab.tar.gz | |
Removed unused constrained which causes build to fail with -Werror
Summary:
Unused Show constraint is cauzing validate build failures because of -Werror.
Removing constraint solves the problem
Test Plan: validate
Reviewers: austin, hvr
Reviewed By: austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D690
| -rw-r--r-- | libraries/base/GHC/IO/Encoding/CodePage/API.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/IO/Encoding/CodePage/API.hs b/libraries/base/GHC/IO/Encoding/CodePage/API.hs index 966a69019a..7fd22cb012 100644 --- a/libraries/base/GHC/IO/Encoding/CodePage/API.hs +++ b/libraries/base/GHC/IO/Encoding/CodePage/API.hs @@ -373,7 +373,7 @@ bSearch msg code ibuf mbuf target_to_elems = go go' mn mx | mn <= mx = go mn (mn + ((mx - mn) `div` 2)) mx | otherwise = error $ "bSearch(" ++ msg ++ "): search crossed! " ++ show (summaryBuffer ibuf, summaryBuffer mbuf, target_to_elems, mn, mx) -cpRecode :: forall from to. (Show from, Storable from) +cpRecode :: forall from to. Storable from => (Ptr from -> Int -> Ptr to -> Int -> IO (Either Bool Int)) -> (from -> IO Bool) -> Int -- ^ Maximum length of a complete translatable sequence in the input (e.g. 2 if the input is UTF-16, 1 if the input is a SBCS, 2 is the input is a DBCS). Must be at least 1. |