summaryrefslogtreecommitdiff
path: root/src/Codec
diff options
context:
space:
mode:
Diffstat (limited to 'src/Codec')
-rw-r--r--src/Codec/Pesto.lhs1
-rw-r--r--src/Codec/Pesto/Dot.lhs23
-rw-r--r--src/Codec/Pesto/Lint.lhs3
3 files changed, 2 insertions, 25 deletions
diff --git a/src/Codec/Pesto.lhs b/src/Codec/Pesto.lhs
index bf8e977..cf20105 100644
--- a/src/Codec/Pesto.lhs
+++ b/src/Codec/Pesto.lhs
@@ -233,7 +233,6 @@ See https://github.com/PromyLOPh/rezepte for example recipes.
.. include:: Pesto/Parse.lhs
.. include:: Pesto/Graph.lhs
.. include:: Pesto/Lint.lhs
-.. include:: Pesto/Dot.lhs
.. include:: Pesto/Serialize.lhs
Using this project
diff --git a/src/Codec/Pesto/Dot.lhs b/src/Codec/Pesto/Dot.lhs
deleted file mode 100644
index 89439e0..0000000
--- a/src/Codec/Pesto/Dot.lhs
+++ /dev/null
@@ -1,23 +0,0 @@
-Presentation
-------------
-
-.. class:: nodoc
-
-> module Codec.Pesto.Dot (toDot) where
-> import Codec.Pesto.Serialize (serialize)
-
-Since each recipe is just a directed graph (digraph), we can use the dot
-language to represent it as well. This in turnXXX can be transformed into an
-image, for example.
-
-> toDot nodes edges = unlines $ ["digraph a {\nnode [fontname=\"Roboto Semi-Light\"];"] ++ n ++ e ++ ["}"]
-> where
-> f (a, b) = show a ++ " -> " ++ show b ++ ";"
-> e = map f edges
-> n = map (\(a, b) -> show a ++ " [label=\"" ++ dotEncodeString (serialize b) ++ "\"];") nodes
-
-> dotEncodeString = concatMap dotEncodeChar
-> dotEncodeChar '\n' = "\\n"
-> dotEncodeChar '"' = "\\\""
-> dotEncodeChar x = [x]
-
diff --git a/src/Codec/Pesto/Lint.lhs b/src/Codec/Pesto/Lint.lhs
index ebeee44..ecfac79 100644
--- a/src/Codec/Pesto/Lint.lhs
+++ b/src/Codec/Pesto/Lint.lhs
@@ -7,7 +7,8 @@ Linting
> , test
> , parseMetadata
> , extractMetadata
-> , Metadata(..)) where
+> , Metadata(..)
+> , LintResult(..)) where
> import Test.HUnit hiding (test, Node)
> import Data.List (sort, isPrefixOf)
> import Control.Applicative ((<*>), (<$>), (*>))