[commit: ghc] master: Removed unused constrained which causes build to fail with -Werror (efbd3eb)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/efbd3eb10a2741d45b0e25c98674c8da57dac5ab/ghc

>---------------------------------------------------------------

commit efbd3eb10a2741d45b0e25c98674c8da57dac5ab
Author: Tamar Christina <tamar at zhox.com>
Date:   Mon Mar 2 11:10:37 2015 -0600

    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


>---------------------------------------------------------------

efbd3eb10a2741d45b0e25c98674c8da57dac5ab
 libraries/base/GHC/IO/Encoding/CodePage/API.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libraries/base/GHC/IO/Encoding/CodePage/API.hs b/libraries/base/GHC/IO/Encoding/CodePage/API.hs
index 966a690..7fd22cb 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.