From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 5 Mar 2019 00:33:13 +0000 (-0500)
Subject: src/Volumetric.hs: add type annotations to avoid monomorphism warnings.
X-Git-Tag: 1.0.1~49
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=commitdiff_plain;h=81673dd2be73c0d276af2ff4e9d5503c07189d53

src/Volumetric.hs: add type annotations to avoid monomorphism warnings.
---

diff --git a/src/Volumetric.hs b/src/Volumetric.hs
index 64669fe..2f2819c 100644
--- a/src/Volumetric.hs
+++ b/src/Volumetric.hs
@@ -138,9 +138,9 @@ values_to_colors arr =
     truncate_rgb (r, g, b) =
       (r', g', b')
       where
-        r' = truncate (r * 255)
-        g' = truncate (g * 255)
-        b' = truncate (b * 255)
+        r' = truncate (r * 255) :: Word8
+        g' = truncate (g * 255) :: Word8
+        b' = truncate (b * 255) :: Word8
 
 
 write_values_to_bmp :: FilePath -> Values2D -> IO ()