hpaste-1.2.0: src/Hpaste/Controller/Script.hs

{-# OPTIONS -Wall #-}
{-# LANGUAGE OverloadedStrings #-}

-- | JavaScript controller.

module Hpaste.Controller.Script
  (handle)
  where

import Hpaste.View.Script (script)

import Snap.Core          (modifyResponse,setContentType)
import Snap.App

handle :: Controller c s ()
handle = do
  modifyResponse $ setContentType "text/javascript"
  outputText $ script