diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2015-08-01 11:46:26 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2015-08-01 11:46:26 +0200 |
| commit | 27cd2842cb5e02f937fcb9363856434d47a869e1 (patch) | |
| tree | 33fe4e0a5f92ca239e8eae1cdcf4f663a095b39d /src/Codec/Pesto/Dot.lhs | |
| parent | f2a73374e76e5da8ce893cae0cff6ab21209b152 (diff) | |
| download | pesto-27cd2842cb5e02f937fcb9363856434d47a869e1.tar.gz pesto-27cd2842cb5e02f937fcb9363856434d47a869e1.tar.bz2 pesto-27cd2842cb5e02f937fcb9363856434d47a869e1.zip | |
Switch on GHC warnings
Diffstat (limited to 'src/Codec/Pesto/Dot.lhs')
| -rw-r--r-- | src/Codec/Pesto/Dot.lhs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Codec/Pesto/Dot.lhs b/src/Codec/Pesto/Dot.lhs index a0ac161..89439e0 100644 --- a/src/Codec/Pesto/Dot.lhs +++ b/src/Codec/Pesto/Dot.lhs @@ -15,7 +15,6 @@ image, for example. > f (a, b) = show a ++ " -> " ++ show b ++ ";" > e = map f edges > n = map (\(a, b) -> show a ++ " [label=\"" ++ dotEncodeString (serialize b) ++ "\"];") nodes -> addcolor = "#e6ee9c" > dotEncodeString = concatMap dotEncodeChar > dotEncodeChar '\n' = "\\n" |