@@ -106,12 +106,13 @@ import Text.Parsec.Token ( GenLanguageDef(..) )
106import qualified Text.Parsec.Token as P
106import qualified Text.Parsec.Token as P
108-- | Type of errors that can be thrown when configuring VTY
108-- | Type of errors that can be thrown when configuring VTY
109−data VtyConfigurationError
109+data VtyConfigurationError =
110+ VtyMissingTermEnvVar
110− = VtyMissingTermEnvVar -- ^ TERM environment variable not set
111+ -- ^ TERM environment variable not set
111− deriving (Show, Eq, Typeable)
112+ deriving (Show, Eq, Typeable)
113instance Exception VtyConfigurationError where
114instance Exception VtyConfigurationError where
114− displayException VtyMissingTermEnvVar = "TERM environment variable not set"
115+ displayException VtyMissingTermEnvVar = "TERM environment variable not set"
116-- | Mappings from input bytes to event in the order specified. Later
117-- | Mappings from input bytes to event in the order specified. Later
117-- entries take precedence over earlier in the case multiple entries
118-- entries take precedence over earlier in the case multiple entries