haskell - HaskellのIOモナドでcharリテラルをラップする方法は?

Question

モナドから物事をアンラップするのではなく、結果に対して実行したい操作をモナドにラップすることになっていることを私は知っています。

私が見つけられないのは、それを行う方法の馬鹿に優しい例です。

たとえば、次のようなことをしたい:

myFunction = do
    c <- getChar
    if (c == 'q')
        then putStrLn "take action 1"
        else putStrLn "take action 2"

ただし、char リテラルを IO Char と直接比較することはできません。

GHCi のバージョンは 8.4.4 です。

エラーメッセージ：

[1 of 2] Compiling Lib              ( /Users/jamesstrieter/hask-tink/src/Lib.hs, interpreted )

/Users/jamesstrieter/hask-tink/src/Lib.hs:66:18: error:
    • Couldn't match expected type ‘IO char’ with actual type ‘Char’
    • In the second argument of ‘(==)’, namely ‘'q'’
      In the expression: x == 'q'
      In an equation for ‘what2do’: what2do x = x == 'q'
    • Relevant bindings include
        x :: IO char
          (bound at /Users/jamesstrieter/hask-tink/src/Lib.hs:66:9)
        what2do :: IO char -> Bool
          (bound at /Users/jamesstrieter/hask-tink/src/Lib.hs:66:1)
   |
66 | what2do x = x == 'q'
   |                  ^^^
Failed, no modules loaded.