Commits

Aleksey Khudyakov committed 6ca09fb

Move INLINE pragma

  • Participants
  • Parent commits ac84078

Comments (0)

Files changed (1)

File Data/Histogram/Fill.hs

 --   is intended for use when some fold should be performed together
 --   with histogram filling
 mkFolder :: b -> (a -> b -> b) -> HBuilder a b
+{-# INLINE mkFolder #-}
 mkFolder a f = HBuilder $ do
   ref <- newSTRef a
   return HBuilderM { hbInput  = \x -> do acc <- readSTRef ref
                                          writeSTRef ref acc'
                    , hbOutput = readSTRef ref
                    }
-{-# INLINE mkFolder #-}
 
 
 -- | Create stateful histogram builder. Output function should be safe