module Radix.Exception
( MalformedTree (..)
) where
import Control.Exception
data MalformedTree = MalformedTree
String
String
instance Show MalformedTree where
showsPrec :: Int -> MalformedTree -> ShowS
showsPrec Int
_ (MalformedTree String
loc String
fun) =
String -> ShowS
showString String
"radix-tree#"
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
showString String
loc ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
'.'
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
showString String
fun ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
showString String
": Encountered Nil, tree is malformed"
instance Exception MalformedTree