Merge pull request #9 from Mikolaj/more-inlineable

Add INLINABLE to a couple more functions

Data/Array/Internal/RankedG.hs

@@ -69,6 +69,7 @@ data Array (n :: Nat) v a = A !ShapeL !(T v a)
   deriving (Generic, Data)
 
 instance (Vector v, Show a, VecElem v a) => Show (Array n v a) where
+  {-# INLINABLE showsPrec #-}
   showsPrec p a@(A s _) = showParen (p > 10) $
     showString "fromList " . showsPrec 11 s . showString " " . showsPrec 11 (toList a)
 

Data/Array/Internal/RankedS.hs

@@ -169,6 +169,7 @@ unScalar = G.unScalar . unA
 
 -- | Make an array with all elements having the same value.
 -- O(1) time
+{-# INLINABLE constant #-}
 constant :: (Unbox a, KnownNat n) => ShapeL -> a -> Array n a
 constant sh = A . G.constant sh
 

Data/Array/Internal/ShapedG.hs

@@ -70,6 +70,7 @@ newtype Array (sh :: [Nat]) v a = A (T v a)
   deriving (Generic, Data)
 
 instance (Vector v, Show a, VecElem v a, Shape sh, Show (v a)) => Show (Array sh v a) where
+  {-# INLINABLE showsPrec #-}
   showsPrec p a@(A _) = showParen (p > 10) $
     showString "fromList @" . showsPrec 11 (shapeL a) . showString" " . showsPrec 11 (toList a)
 

Data/Array/Internal/ShapedS.hs

@@ -171,6 +171,7 @@ unScalar = G.unScalar . unA
 
 -- | Make an array with all elements having the same value.
 -- O(1) time.
+{-# INLINABLE constant #-}
 constant :: forall sh a . (Unbox a, Shape sh) =>
             a -> Array sh a
 constant = A . G.constant