2744

pending completion

Build # 2744

Build Type

Pull #550

travis-ci-com

Committed by

web-flow

Commit Message

<a href="https://github.com/composewell/streamly/commit/<a class=hub.com/composewell/streamly/commit/7e8b268596b6997c800b7d565e015d360d33797e">7e8b26859<a href="https://github.com/composewell/streamly/commit/7e8b268596b6997c800b7d565e015d360d33797e">">Merge </a><a class="double-link" href="https://github.com/composewell/streamly/commit/<a class="double-link" href="https://github.com/composewell/streamly/commit/639ba81f26c504249a43db0bece47a79696aa4ca">639ba81f2</a>">639ba81f2</a><a href="https://github.com/composewell/streamly/commit/7e8b268596b6997c800b7d565e015d360d33797e"> into acf31cef5">acf31cef5</a>

Pull Request Pull Request #550: Extend Prim Array to be the default

Run Details

107 of 107 new or added lines in 8 files covered. (100.0%)

3030 of 8152 relevant lines covered (37.17%)

0.37 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

71.43

/src/Streamly/Internal/Data/Prim/Mutable/Array/Types.hs

{-# LANGUAGE CPP                       #-}
{-# LANGUAGE BangPatterns              #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE MagicHash                 #-}
{-# LANGUAGE RecordWildCards           #-}
{-# LANGUAGE ScopedTypeVariables       #-}
{-# LANGUAGE TypeFamilies              #-}
{-# LANGUAGE UnboxedTuples             #-}
{-# LANGUAGE FlexibleContexts          #-}
#include "inline.hs"

-- |
-- Module      : Streamly.Internal.Data.Prim.Mutable.Array.Types
-- Copyright   : (c) 2019 Composewell Technologies
--
-- License     : BSD3
-- Maintainer  : streamly@composewell.com
-- Stability   : experimental
-- Portability : GHC
--
module Streamly.Internal.Data.Prim.Mutable.Array.Types
    (
      Array (..)

    -- * Construction
    , newArray
    , writeArray

    , spliceTwo
    , unsafeCopy

    , fromListM
    , fromListNM
    , fromStreamDN
    , fromStreamD

    -- * Streams of arrays
    , fromStreamDArraysOf

    , packArraysChunksOf
    , lpackArraysChunksOf

#if !defined(mingw32_HOST_OS)
--    , groupIOVecsOf
#endif

    -- * Elimination
    , unsafeIndexM
    , length
    , byteLength

    , writeN
    , write

    -- * Utilities
    , resizeArray
    , shrinkArray
    )
where

#include "mutable-prim-array-types.hs"

{-# INLINE newArray #-}
newArray ::
       forall m a. (PrimMonad m, Prim a)
    => Int
    -> m (Array (PrimState m) a)
newArray (I# n#)
  = primitive (\s# ->
      case newByteArray# (n# *# sizeOf# (undefined :: a)) s# of
        (# s'#, arr# #) -> (# s'#, Array arr# #)
    )

{-# INLINE resizeArray #-}
resizeArray ::
       forall m a. (PrimMonad m, Prim a)
    => Array (PrimState m) a
    -> Int -- ^ new size
    -> m (Array (PrimState m) a)
resizeArray (Array arr#) (I# n#)
  = primitive (\s# -> case resizeMutableByteArray# arr# (n# *# sizeOf# (undefined :: a)) s# of
                        (# s'#, arr'# #) -> (# s'#, Array arr'# #))

1	{-# LANGUAGE CPP #-}
2	{-# LANGUAGE BangPatterns #-}
3	{-# LANGUAGE ExistentialQuantification #-}
4	{-# LANGUAGE MagicHash #-}
5	{-# LANGUAGE RecordWildCards #-}
6	{-# LANGUAGE ScopedTypeVariables #-}
7	{-# LANGUAGE TypeFamilies #-}
8	{-# LANGUAGE UnboxedTuples #-}
9	{-# LANGUAGE FlexibleContexts #-}
10	#include "inline.hs"
11
12	-- \|
13	-- Module : Streamly.Internal.Data.Prim.Mutable.Array.Types
14	-- Copyright : (c) 2019 Composewell Technologies
15	--
16	-- License : BSD3
17	-- Maintainer : streamly@composewell.com
18	-- Stability : experimental
19	-- Portability : GHC
20	--
21	module Streamly.Internal.Data.Prim.Mutable.Array.Types
22	(
23	Array (..)
24
25	-- * Construction
26	, newArray
27	, writeArray
28
29	, spliceTwo
30	, unsafeCopy
31
32	, fromListM
33	, fromListNM
34	, fromStreamDN
35	, fromStreamD
36
37	-- * Streams of arrays
38	, fromStreamDArraysOf
39
40	, packArraysChunksOf
41	, lpackArraysChunksOf
42
43	#if !defined(mingw32_HOST_OS)
44	-- , groupIOVecsOf
45	#endif
46
47	-- * Elimination
48	, unsafeIndexM
49	, length
50	, byteLength
51
52	, writeN
53	, write
54
55	-- * Utilities
56	, resizeArray
57	, shrinkArray
58	)
59	where
60
61	#include "mutable-prim-array-types.hs"
62
63	{-# INLINE newArray #-}
64	newArray ::
65	forall m a. (PrimMonad m, Prim a)
66	=> Int
67	-> m (Array (PrimState m) a)
68	newArray (I# n#)	1✔
69	= primitive (\s# ->	1✔
70	case newByteArray# (n# *# sizeOf# (undefined :: a)) s# of	×
71	(# s'#, arr# #) -> (# s'#, Array arr# #)	1✔
72	)
73
74	{-# INLINE resizeArray #-}
75	resizeArray ::
76	forall m a. (PrimMonad m, Prim a)
77	=> Array (PrimState m) a
78	-> Int -- ^ new size
79	-> m (Array (PrimState m) a)
80	resizeArray (Array arr#) (I# n#)	1✔
81	= primitive (\s# -> case resizeMutableByteArray# arr# (n# *# sizeOf# (undefined :: a)) s# of	×
82	(# s'#, arr'# #) -> (# s'#, Array arr'# #))	1✔

composewell / streamly / 2744

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous