X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=blobdiff_plain;f=src%2FRealFunction.hs;h=37babf6b7fc351c1ac6621b2eaa4ce0e8962b056;hp=307a0f0c5cb9596a58d8c6375ee9b06fbd79266c;hb=d3c559655599970d7e438701f6d780e49491c9d5;hpb=16591937d99af4a899a28fee211cb2285b771abc

diff --git a/src/RealFunction.hs b/src/RealFunction.hs
index 307a0f0..37babf6 100644
--- a/src/RealFunction.hs
+++ b/src/RealFunction.hs
@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -Wno-orphans #-}
 {-# LANGUAGE FlexibleInstances #-}
 
 module RealFunction (
@@ -6,7 +7,9 @@ module RealFunction (
   fexp )
 where
 
-
+-- Presumably this is faster without a newtype wrapper, and that's why
+-- we're about to define a bunch of orphan instances below. Note the
+-- GHC pragma thingy at the top of this file to ignore those warnings.
 type RealFunction a = (a -> Double)