Download raw

Created: 2023-12-19 03:40:10.302489 UTC

Size: 41876

Preview (limited to 512 bytes)

"#ifdef DEFINE_INSTANCES\ndata instance MVector s (a, b)\n = MV_2 {-# UNPACK #-} !Int !(MVector s a)\n !(MVector s b)\ndata instance Vector (a, b)\n = V_2 {-# UNPACK #-} !Int !(Vector a)\n !(Vector b)\ninstance (Unbox a, Unbox b) => Unbox (a, b)\ninstance (Unbox a, Unbox b) => M.MVector MVector (a, b) where\n {-# INLINE basicLength #-}\n basicLength (MV_2 n_ _ _) = n_\n {-# INLINE basicUnsafeSlice #-}\n basicUnsafeSlice i_ m_ (MV_2 _ as bs)\n = M"

Casa is a service provided by the Haskell Foundation │ Originally developed by FP Complete