{-# 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.Strict.Map.Autogen.Internal.Debug. module Data.Strict.Map.Autogen.Internal.DeprecatedShowTree where import Data.Strict.Map.Autogen.Internal (Map) import Data.Strict.ContainersUtils.Autogen.TypeError -- | This function has moved to 'Data.Strict.Map.Autogen.Internal.Debug.showTree'. showTree :: Whoops "showTree has moved to Data.Strict.Map.Autogen.Internal.Debug.showTree." => Map k a -> String showTree _ = undefined -- | This function has moved to 'Data.Strict.Map.Autogen.Internal.Debug.showTreeWith'. showTreeWith :: Whoops "showTreeWith has moved to Data.Strict.Map.Autogen.Internal.Debug.showTreeWith." => (k -> a -> String) -> Bool -> Bool -> Map k a -> String showTreeWith _ _ _ _ = undefined