0d296d04b81feb8699891c628170f29661282a9f
[packages/containers.git] / Data / Map / Internal / DeprecatedShowTree.hs
1 {-# LANGUAGE CPP, FlexibleContexts, DataKinds #-}
2 #if __GLASGOW_HASKELL__ >= 800
3 {-# LANGUAGE MonoLocalBinds #-}
4 #endif
5 #if __GLASGOW_HASKELL__ < 710
6 -- Why do we need this? Guess it doesn't matter; this is all
7 -- going away soon.
8 {-# LANGUAGE Trustworthy #-}
9 #endif
10
11 #include "containers.h"
12
13 -- | This module simply holds disabled copies of functions from
14 -- Data.Map.Internal.Debug.
15 module Data.Map.Internal.DeprecatedShowTree where
16
17 import Data.Map.Internal (Map)
18 import Utils.Containers.Internal.TypeError
19
20 -- | This function has moved to 'Data.Map.Internal.Debug.showTree'.
21 showTree :: Whoops "showTree has moved to Data.Map.Internal.Debug.showTree."
22 => Map k a -> String
23 showTree _ = undefined
24
25 -- | This function has moved to 'Data.Map.Internal.Debug.showTreeWith'.
26 showTreeWith ::
27 Whoops "showTreeWith has moved to Data.Map.Internal.Debug.showTreeWith."
28 => (k -> a -> String) -> Bool -> Bool -> Map k a -> String
29 showTreeWith _ _ _ _ = undefined