X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=c8ba34554feb27bb2cd4f0f2d16aa36b0f3bd34a;hb=518b4b43bfd6c7c1d09841ca3ff5eeae089351ea;hp=ef04e1e9cce656718dbb9466c09e0978495d4793;hpb=c954154b379c5bd444d527298c33142fb150711b;p=spline3.git

diff --git a/src/Main.hs b/src/Main.hs
index ef04e1e..c8ba345 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -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