`*>` is not `flip <*`!

Main.purs

module Main where

import Prelude
import Data.Monoid
import Control.Apply as Apply
import Control.Monad.Writer
import Control.Monad.Eff.Console (log, print)

main = do
  print (runWriter (f "hi" Apply.<* f " world"))
  
  print (runWriter (f "hi" Apply.*> f " world"))
  
  let (*>) = flip Apply.(<*)
  print (runWriter (f "hi" *> f " world"))
  
f :: forall a. (Monoid a) => a -> Writer a a
f x = do
  tell x
  pure x