haskell - 在 do 表示法中使用 where 语句

Question

是否有某种方法可以在 do 表示法中使用 where 语句而不带来不便:

x = do
  putStrLn "Enter file name"
  fileName  <- getLine
  putStrLn "Enter file extension"
  fileExt   <- getLine
  doIO $ fileName ++ "." ++ fileExt
  doSomeMoreIO $ fileName ++ "." ++ fileExt

如果有 where file = fileName ++ "." ++ fileExt 就太好了。有什么办法可以做到吗？

我想一种方法是 file <- return $ fileName ++ "." ++ fileExt ，但这感觉有点奇怪，因为我将业务逻辑与编写方便混合在一起。

Answer 1

哪里，没有。 让，是的:

x = do
  putStrLn "Enter file name"
  fileName  <- getLine
  putStrLn "Enter file extension"
  fileExt   <- getLine
  let file = fileName ++ "." ++ fileExt
  doIO file
  doSomeMoreIO file