From: Michael Orlitzky 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: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=dbb641b1534f7b3a24d5b6f4479b91f1fd681c54;p=spline3.git 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 (