Updated Branches: refs/heads/master e2c5b2d43 -> 0928eda77
THRIFT-2002: Update Maybe to use Data.Maybe to prevent failure of the debug test Client: haskell Patch: Carl Yeksigian Project: http://git-wip-us.apache.org/repos/asf/thrift/repo Commit: http://git-wip-us.apache.org/repos/asf/thrift/commit/0928eda7 Tree: http://git-wip-us.apache.org/repos/asf/thrift/tree/0928eda7 Diff: http://git-wip-us.apache.org/repos/asf/thrift/diff/0928eda7 Branch: refs/heads/master Commit: 0928eda77155301a1160bf4ae50faccefa5bd6e6 Parents: e2c5b2d Author: Carl Yeksigian <[email protected]> Authored: Thu Jun 6 20:53:32 2013 -0400 Committer: Carl Yeksigian <[email protected]> Committed: Thu Jun 6 20:53:32 2013 -0400 ---------------------------------------------------------------------- test/hs/DebugProtoTest_Main.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/thrift/blob/0928eda7/test/hs/DebugProtoTest_Main.hs ---------------------------------------------------------------------- diff --git a/test/hs/DebugProtoTest_Main.hs b/test/hs/DebugProtoTest_Main.hs index f6a031c..29393db 100755 --- a/test/hs/DebugProtoTest_Main.hs +++ b/test/hs/DebugProtoTest_Main.hs @@ -24,7 +24,7 @@ module Main where import qualified Control.Exception import qualified Data.ByteString.Lazy as DBL -import qualified Maybe +import qualified Data.Maybe import qualified Network import Thrift.Protocol.Binary @@ -127,7 +127,7 @@ instance SIface.Srv_Iface InheritedHandler where instance IIface.Inherited_Iface InheritedHandler where identity _ arg = do ThriftTestUtils.serverLog $ "Got identity method: " ++ show arg - return $ Maybe.fromJust arg + return $ Data.Maybe.fromJust arg client :: (String, Network.PortID) -> IO () client addr = do
