使用Haskell编写一个函数，将字符串列表中的每个字符串都转换为大写。

这里是一个使用Haskell编写的函数，将字符串列表中的每个字符串转换为大写：

import Data.Char (toUpper)

toUpperCase :: [String] -> [String]
toUpperCase = map (map toUpper)

在上面的代码中，我们使用了两个内置函数：

- map函数：它以一个函数和一个列表作为参数，将该函数应用于列表中的每个元素，并返回结果列表。在这里，我们使用map函数将map toUpper应用于字符串列表中的每个字符串。

- toUpper函数：它将一个字符转换为大写。

接下来，我们可以使用toUpperCase函数来将字符串列表中的每个字符串转换为大写。下面是一个使用例子：

main :: IO ()
main = do
  let strings = ["hello", "world", "haskell"]
  let uppercaseStrings = toUpperCase strings
  print uppercaseStrings

在上面的代码中，我们定义了一个strings列表，其中包含一些字符串。然后，我们使用toUpperCase函数将列表中的每个字符串转换为大写，并将结果存储在uppercaseStrings中。最后，我们使用print函数打印出转换后的字符串列表。

输出结果为：

["HELLO","WORLD","HASKELL"]

这样，我们就成功地将字符串列表中的每个字符串都转换为大写了。