diff options
| -rw-r--r-- | src/Fragment.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Fragment.hs b/src/Fragment.hs index 511ea8d..64b04e5 100644 --- a/src/Fragment.hs +++ b/src/Fragment.hs @@ -34,8 +34,6 @@ import Control.Monad (void) import Text.Parsec import Text.Parsec.String -import Debug.Trace - data Fragment = Documentation String | BlockCode String [CodeOrReference] deriving (Eq, Show, Data, Typeable, Generic) @@ -47,7 +45,7 @@ data CodeOrReference = Code String parseFragments :: FilePath -> String -> Either String [Fragment] parseFragments path input = case parse literateFile path input of - Right result -> traceShow result $ Right result + Right result -> Right result Left err -> Left $ show err literateFile :: Parser [Fragment] |