Removed debug output.

This commit is contained in:
Jasper Van der Jeugt 2010-01-19 16:40:30 +01:00
parent 68facf83ec
commit db0eef8470

View file

@ -120,7 +120,6 @@ readPage path = do
handle <- liftIO $ openFile path ReadMode
sections <- fmap (splitAtDelimiters . lines )
(liftIO $ hGetContents handle)
liftIO $ print sections
let context = concat $ zipWith ($) sectionFunctions sections
page = fromContext $ M.fromList $