{-# OPTIONS_GHC -Wall -fno-warn-orphans #-} ---------------------------------------------------------------------- -- | -- Module : Data.NumInstances.Util -- Copyright : (c) Conal Elliott 2008 -- License : BSD3 -- -- Maintainer : conal@conal.net -- Stability : experimental -- -- Utilities for number class instances for functions and tuples ---------------------------------------------------------------------- module Data.NumInstances.Util (noOv) where noOv :: String -> String -> a noOv :: forall a. String -> String -> a noOv String ty String meth = String -> a forall a. HasCallStack => String -> a error (String -> a) -> String -> a forall a b. (a -> b) -> a -> b $ String meth String -> String -> String forall a. [a] -> [a] -> [a] ++ String ": No overloading for " String -> String -> String forall a. [a] -> [a] -> [a] ++ String ty