相关疑难解决方法(0)

我想定义一个转换为字符串的函数,如下面的'toString':

toString 1 = "1"
toString True = "True"
toString "1" = "1"

请注意,'show'不会这样做.相比之下,它做了以下事情:

show 1 = "1"
show True = "True"
show "1" = "\"1\""

也就是说,它会在字符串周围添加额外的引号.在这种情况下,如果我已经有一个字符串,我不想添加额外的引号.

我正在考虑使用类似的东西:

import Data.Typeable

toString a :: (Show a) => a -> String
toString a
  | typeOf a == typeOf "" = a
  | otherwise = show a

做这种奇怪的基于类型的条件是否有任何陷阱？是否有一些内置的Haskell功能可以更好地使用？