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 @@
 
 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 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