すごいH本でHaskell始めたのですが，質問です．14章1節のWriterでつまずいています．
エラーになってる関数は使っていませんが気にしないでください．．．
http://ideone.com/BXd8X
なコードが
Hoge.hs:7:18:
Couldn't match expected type `(a0, b0)'
with actual type `Writer w0 a1 -> (a1, w0)'
In the second argument of `($)', namely `runWriter'
In the expression: fst $ runWriter
In an equation for `getValue': getValue = fst $ runWriter
というコンパイルエラーで落ちるのですが，どこが悪いのでしょうか？
runWriterの引数の型を間違えていると読めますが，どうおかしいのか私にはわかりませんでした．