在Haskell中删除字符串双引号

此函数生成简单的.dot文件,用于使用Graphviz可视化自动机转换函数。它的主要目的是调试大量自动生成的转换(例如,拉丁动词的屈折变化)。

prepGraph :: ( ... ) => NFA c b a -> [String]
prepGraph nfa = "digraph finite_state_machine {"
              : wrapSp "rankdir = LR"
              : wrapSp ("node [shape = circle]" ++ (mapSp (states nfa \\ terminal nfa)))
              : wrapSp ("node [shape = doublecircle]" ++ (mapSp $ terminal nfa))
              : formatGraph nfa ++ ["}"]

formatGraph :: ( ... ) => NFA c b a -> [String]
formatGraph = map formatDelta . deltaTuples
 where formatDelta (a, a', bc) = wrapSp (mkArrow a a' ++ " " ++ mkLabel bc)
       mkArrow x y   = show x ++ " -> " ++ show y
       mkLabel (y, z) = case z of
         (Just t) -> "[ label = \"(" ++ show y ++ ", " ++ show t ++ ")\" ]"
         Nothing  -> "[ label = \"(" ++ show y ++ ", " ++ "Null" ++ ")\" ]"

wrap wrapSp 和 mapSp 是格式化函数 deltaTuples .

问题是 formatGraph 在字符串周围保留双引号,这会导致Graphviz中出现错误。例如,当我打印 unlines $ prepGraph

0 -> 1 [ label = "('a', "N. SF")" ];

而不是

0 -> 1 [ label = "('a', N. SF)" ];

(不过,“Null”似乎工作正常,输出也非常好)。当然,字符串“N.SF”不是我用来存储屈折变化的实际形式,但是这种形式确实包含一两个字符串。我怎么能告诉哈斯克尔:当你 show 一个字符串值,不要双引号吗?