morphHakyllT :: (forall b . m b -> n b) -> HakyllT m a -> HakyllT n a
morphHakyllT f (HakyllT m) = HakyllT $ RWS.mapRWST f m
morphHakyllT :: (forall b . m b -> n b) -> HakyllT m a -> HakyllT n a
morphHakyllT f (HakyllT m) = HakyllT $ RWS.mapRWST f m
morphHakyllT f (HakyllT m) = HakyllT $ RWS.mapRWST f m