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