{-# OPTIONS_GHC -Wall -fwarn-tabs #-} ---------------------------------------------------------------- -- ~ 2011.02.12 -- | -- Module : Data.Trie.Errors -- Copyright : Copyright (c) 2008--2015 wren gayle romano -- License : BSD3 -- Maintainer : wren@community.haskell.org -- Stability : experimental -- Portability : portable -- -- Internal convenience functions for giving error messages. ---------------------------------------------------------------- module Data.Trie.Errors ( impossible ) where ---------------------------------------------------------------- ---------------------------------------------------------------- -- | The impossible happened. Use this instead of 'undefined' just in case. impossible :: String -> a {-# NOINLINE impossible #-} impossible :: String -> a impossible String fn = String -> a forall a. HasCallStack => String -> a error (String -> a) -> String -> a forall a b. (a -> b) -> a -> b $ String "Data.Trie." String -> String -> String forall a. [a] -> [a] -> [a] ++ String fn String -> String -> String forall a. [a] -> [a] -> [a] ++ String ": the impossible happened. This is a bug, please report it to the maintainer." ---------------------------------------------------------------- ----------------------------------------------------------- fin.