X-Git-Url: https://gitweb.michael.orlitzky.com/?p=spline3.git;a=blobdiff_plain;f=src%2FCube.hs;fp=src%2FCube.hs;h=552b141e2a2f597ce7669baa9e181259e2979a96;hp=8596b11846838b91f0b4db3667d130ac4152b7ed;hb=dbb641b1534f7b3a24d5b6f4479b91f1fd681c54;hpb=b99812f0461140689e148251856825d61e68902b

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,