Debug.hs

-- Copyright (C) 2010 John Millikin <jmillikin@gmail.com>
-- 
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- any later version.
-- 
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
-- 
-- You should have received a copy of the GNU General Public License
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
-- 
{-# LANGUAGE OverloadedStrings #-}
module Anansi.Loom.Debug (loomDebug) where
import Data.Text.Lazy (pack)
import Control.Monad (forM_)
import Control.Monad.Writer (tell)
import Anansi.Loom

loomDebug :: Loom
loomDebug = Loom "debug" $ \blocks -> do
	tell "\nweaving\n"
	tell "==========================\n"
	forM_ blocks $ \b -> do
		tell . pack $ show b ++ "\n"