{-# 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 :: String -> String -> a
noOv ty :: String
ty meth :: 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]
++ ": No overloading for " String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
ty