require 'innate'

require 'haml/util'
require 'haml/engine'

module Innate
  module View
    module Haml

      # Shamelessly excerpted from Ramaze.
      def self.call(action, string)
        haml = View.compile(string) do |s| 
          ::Haml::Engine.new(s, action.options) 
        end
        html = haml.to_html(action.instance, action.variables)
        return html, 'text/html'
      end
    end

    register 'Innate::View::Haml',  :haml
  end
end