From: Michael Orlitzky Date: Mon, 7 Nov 2011 02:12:07 +0000 (-0500) Subject: Fix some hlint issues. X-Git-Tag: 0.0.1~65 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=5a54d42597d60ee5d9f3976a95a063849dd26e7c;p=spline3.git Fix some hlint issues. --- 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