]> gitweb.michael.orlitzky.com - spline3.git/commitdiff
Fix some more hLint warnings.
authorMichael Orlitzky <michael@orlitzky.com>
Tue, 30 Aug 2011 11:34:37 +0000 (07:34 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Tue, 30 Aug 2011 11:34:37 +0000 (07:34 -0400)
src/Examples.hs
src/Main.hs
src/Misc.hs

index f90a819cd3d6cf2dac1b4171ebafe78e49c90a75..ebdf268e43df19bab5b02e3c99868c8db4b2410b 100644 (file)
@@ -28,7 +28,7 @@ n_cube n = (Repa.Z Repa.:. n Repa.:. n Repa.:. n)
 trilinear :: Values3D
 trilinear = Repa.fromList (n_cube 3) $
             flatten $
-            transpose_xz $
+            transpose_xz
             trilinear_list
 
 
@@ -41,7 +41,7 @@ trilinear_zoom_2_list = [[[1, 3/2, 2, 5/2, 3], [1, 7/4, 5/2, 13/4, 4], [1, 2, 3,
 trilinear_zoom_2 :: Values3D
 trilinear_zoom_2 = Repa.fromList (n_cube 6) $
                    flatten $
-                   transpose_xz $
+                   transpose_xz
                    trilinear_zoom_2_list
 
 
@@ -55,7 +55,7 @@ trilinear9x9x9_list = [[[1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5], [1, 1.75, 2.5, 3.25
 trilinear9x9x9 :: Values3D
 trilinear9x9x9 = Repa.fromList (n_cube 9) $
                  flatten $
-                 transpose_xz $
+                 transpose_xz
                  trilinear9x9x9_list
 
 
@@ -97,7 +97,7 @@ naturals_list = [ [ [ 0, 1, 2 ],
 naturals :: Values3D
 naturals = Repa.fromList (n_cube 3) $
            flatten $
-           transpose_xz $
+           transpose_xz
            naturals_list
 
 
index ef04e1e9cce656718dbb9466c09e0978495d4793..c8ba34554feb27bb2cd4f0f2d16aa36b0f3bd34a 100644 (file)
@@ -18,7 +18,7 @@ mri_shape = (Z :. 256 :. 256 :. 1)
 main :: IO ()
 main = do
   args <- getArgs
-  let color = args !! 0
+  let color = head args
   let in_file  = "./data/MRbrain.40." ++ color
   let out_file = "MRbrain.40." ++ color ++ ".out"
   mridata <- read_values_3d mri_shape in_file
index 6b5a84d20af8d79ea3eac277b5032eaf9123a8c5..090642a223d6e2f2493441445dcd1dfba8e5e969 100644 (file)
@@ -46,7 +46,7 @@ transpose_xz m =
                       | z <- [0..zsize]]
     where
       zsize = (length m) - 1
-      ysize = (length $ head m)- 1
+      ysize = length (head m) - 1
       xsize = (length $ head $ head m) - 1
 
 -- | Takes a list, and returns True if its elements are pairwise