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

src/Main.hs: add a few type annotations to avoid monomorphism warnings.
---

diff --git a/src/Main.hs b/src/Main.hs
index 89ac446..913a939 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -93,7 +93,7 @@ main3d Args{..} shape = do
 
 main2d :: Args -> R.DIM3 -> IO ()
 main2d Args{..} shape = do
-  let zoom_factor = (1, scale, scale)
+  let zoom_factor = (1 :: Int, scale, scale)
   arr <- read_word16s input shape
   arrSlice <- R.computeUnboxedP
                $ z_slice (fromJust slice)
@@ -109,8 +109,8 @@ main2d Args{..} shape = do
   arrSlice0  <- R.computeUnboxedP $ z_slice 0 raw_output
 
   -- Make doubles from the thresholds which are given as Ints.
-  let lt = fromIntegral lower_threshold
-  let ut = fromIntegral upper_threshold
+  let lt = fromIntegral lower_threshold :: Double
+  let ut = fromIntegral upper_threshold :: Double
 
   let arr_bracketed = bracket_array lt ut arrSlice0
   values <- R.computeUnboxedP $ R.map fromIntegral arr_bracketed