[Haskell] Mixing monadic and non-monadic functions