{-# LANGUAGE CPP, FlexibleContexts, DataKinds #-} #if __GLASGOW_HASKELL__ >= 800 {-# LANGUAGE MonoLocalBinds #-} #endif #if __GLASGOW_HASKELL__ < 710 -- Why do we need this? Guess it doesn't matter; this is all -- going away soon. {-# LANGUAGE Trustworthy #-} #endif #include "containers.h" -- | This module simply holds disabled copies of functions from -- Data.Map.Internal.Debug. module Data.Map.Internal.DeprecatedShowTree where import Data.Map.Internal (Map) import Utils.Containers.Internal.TypeError -- | This function has moved to 'Data.Map.Internal.Debug.showTree'. showTree :: Whoops "showTree has moved to Data.Map.Internal.Debug.showTree." => Map k a -> String showTree _ = undefined -- | This function has moved to 'Data.Map.Internal.Debug.showTreeWith'. showTreeWith :: Whoops "showTreeWith has moved to Data.Map.Internal.Debug.showTreeWith." => (k -> a -> String) -> Bool -> Bool -> Map k a -> String showTreeWith _ _ _ _ = undefined