From 5a54d42597d60ee5d9f3976a95a063849dd26e7c Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sun, 6 Nov 2011 21:12:07 -0500 Subject: [PATCH] Fix some hlint issues. --- src/MRI.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/MRI.hs b/src/MRI.hs index f63c729..a246bf5 100644 --- a/src/MRI.hs +++ b/src/MRI.hs @@ -64,8 +64,8 @@ type ColorData sh = Array U sh RGB read_word16s :: FilePath -> IO RawData3D read_word16s path = do arr <- R.readArrayFromStorableFile path mri_shape - arr' <- now $ R.copy arr - return arr' + now $ R.copy arr + bracket :: Double -> Word16 @@ -87,19 +87,19 @@ flip16 xx = {-# INLINE swap_bytes #-} swap_bytes :: (Shape sh, Repr r Word16) => Array r sh Word16 -> Array D sh Word16 -swap_bytes arr = - R.map flip16 arr +swap_bytes = + R.map flip16 bracket_array :: Shape sh => Values sh -> Array D sh Word16 -bracket_array arr = - R.map bracket arr +bracket_array = + R.map bracket {-# INLINE round_array #-} round_array :: Shape sh => Values sh -> Array D sh Word16 -round_array arr = - R.map round arr +round_array = + R.map round flip_y :: Repr r Word16 => Array r DIM3 Word16 -> Array D DIM3 Word16 -- 2.44.2