Inline safeReduceColumn

mchav · Jan 22, 2025 · a163863 · a163863
1 parent f84e75b
commit a163863
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Data/DataFrame/Internal/Column.hs b/src/Data/DataFrame/Internal/Column.hs
@@ -321,6 +321,7 @@ safeReduceColumn f (BoxedColumn (column :: c)) = do
 safeReduceColumn f (UnboxedColumn (column :: c)) = do
   Refl <- testEquality (typeRep @c) (typeRep @a)
   return $ f column
+{-# INLINE safeReduceColumn #-}
 
 longZipColumns :: Column -> Column -> Column
 longZipColumns (BoxedColumn column) (BoxedColumn other) = BoxedColumn (VB.generate (max (VG.length column) (VG.length other)) (\i -> (column VG.!? i, other VG.!? i)))