{-# 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 = forall a. HasCallStack => String -> a
error forall a b. (a -> b) -> a -> b
$ String
meth forall a. [a] -> [a] -> [a]
++ String
": No overloading for " forall a. [a] -> [a] -> [a]
++ String
ty