From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 5 Mar 2019 04:32:54 +0000 (-0500)
Subject: src/{Cube,Tetrahedron}.hs: disable incomplete pattern warnings via pragmas.
X-Git-Tag: 1.0.1~13
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=commitdiff_plain;h=dbb641b1534f7b3a24d5b6f4479b91f1fd681c54

src/{Cube,Tetrahedron}.hs: disable incomplete pattern warnings via pragmas.

These two modules have incomplete pattern matches by design, for
performance reasons.
---

diff --git a/src/Cube.hs b/src/Cube.hs
index 8596b11..552b141 100644
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -1,3 +1,8 @@
+-- The "tetrahedron" function pattern matches on the integers zero
+-- through twenty-three, but doesn't handle the "otherwise" case, for
+-- performance reasons.
+{-# OPTIONS_GHC -Wno-incomplete-patterns #-}
+
 module Cube (
   Cube(..),
   cube_properties,
diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs
index 4bc8658..09b042d 100644
--- a/src/Tetrahedron.hs
+++ b/src/Tetrahedron.hs
@@ -1,3 +1,7 @@
+-- The local "coefficient" function defined within the "c" function
+-- pattern matches on a bunch of integers, but doesn't handle the
+-- "otherwise" case for performance reasons.
+{-# OPTIONS_GHC -Wno-incomplete-patterns #-}
 {-# LANGUAGE BangPatterns #-}
 
 module Tetrahedron (