From a163863d94af7b4efb7aac38e7cce66c3fd5f05a Mon Sep 17 00:00:00 2001
From: Michael Chavinda <mschavinda@gmail.com>
Date: Wed, 22 Jan 2025 08:28:39 -0800
Subject: [PATCH] Inline safeReduceColumn

---
 src/Data/DataFrame/Internal/Column.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Data/DataFrame/Internal/Column.hs b/src/Data/DataFrame/Internal/Column.hs
index 8776a4e..687b0b8 100644
--- 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)))