From 8090cd7bd9c9a80e189b381e63a7ce10f8c9f3ac Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Thu, 12 Feb 2015 22:25:12 -0500 Subject: Get rid of Debug.Trace --- src/Fragment.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src') 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] -- cgit v1.2.3