stepcut

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE UndecidableInstances #-}
module MyApp where

import Control.Applicative
import Control.Monad.State
import Control.Monad.Reader
import Control.Monad.Error

stepcut

{-# OPTIONS_GHC -F -pgmFtrhsx #-}
module Main (main) where

import Control.Monad

import Happstack.Server

import qualified Text.Blaze.Html5 as H
import Data.String (fromString)