git.iko.soy/elk
on master help sign in
cosmetic: reduce copyToPtr indentation to match other definitions
ae830e5Evan Czaplicki
compiler/src/Data/Utf8.hs+3−3
compare with master
unifiedsplit
@@ -748,9 +748,9 @@ copyFromPtr (Ptr src#) (MBA# mba#) (I# offset#) (I# len#) =
748
748
749copyToPtr :: Utf8 l t -> Int -> Ptr a -> Int -> IO ()
749copyToPtr :: Utf8 l t -> Int -> Ptr a -> Int -> IO ()
750copyToPtr (Utf8 ba#) (I# offset#) (Ptr mba#) (I# len#) =
750copyToPtr (Utf8 ba#) (I# offset#) (Ptr mba#) (I# len#) =
751− IO $ \s ->
751+ IO $ \s ->
752− case copyByteArrayToAddr# ba# offset# mba# len# s of
752+ case copyByteArrayToAddr# ba# offset# mba# len# s of
753− s -> (# s, () #)
753+ s -> (# s, () #)
754
754
755
755
756{-# INLINE writeWord8 #-}
756{-# INLINE writeWord8 #-}