STモナドをPrimMonadクラスに変えたら激遅になった

なんでだろ・・・何らかの最適化が死んだのか

-- Reasonably fast
foo :: MVector s Foo -> ST s (MVector s Bar)

-- Very slow
foo :: (PrimMonad m, s ~ PrimState m) => MVector s Foo -> m (MVector s Bar)