cosmetic: reduce copyToPtr indentation to match other definitions
commitae830e51b447972be2b36918c790df84fee98b69
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateThu 30 May 2019, 14:43 (7 years ago)
parent462ec16
compiler/src/Data/Utf8.hs+3−3
@@ -748,9 +748,9 @@ copyFromPtr (Ptr src#) (MBA# mba#) (I# offset#) (I# len#) =
748748
749749copyToPtr :: Utf8 l t -> Int -> Ptr a -> Int -> IO ()
750750copyToPtr (Utf8 ba#) (I# offset#) (Ptr mba#) (I# len#) =
751− IO $ \s ->
752− case copyByteArrayToAddr# ba# offset# mba# len# s of
753− s -> (# s, () #)
751+ IO $ \s ->
752+ case copyByteArrayToAddr# ba# offset# mba# len# s of
753+ s -> (# s, () #)
754754
755755
756756{-# INLINE writeWord8 #-}