happstack-7.0.1/0000755000000000000000000000000012040351147011660 5ustar0000000000000000happstack-7.0.1/COPYING0000644000000000000000000000272112040351147012715 0ustar0000000000000000Copyright 2009 Happstack.com Copyright 2005 HAppS LLC All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. Neither the name of the HAppS.org; nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. happstack-7.0.1/Setup.hs0000644000000000000000000000013012040351147013306 0ustar0000000000000000module Main (main) where import Distribution.Simple main :: IO () main = defaultMain happstack-7.0.1/happstack.cabal0000644000000000000000000000252512040351147014626 0ustar0000000000000000Name: happstack Version: 7.0.1 Synopsis: The haskell application server stack + code generation Description: The haskell application server stack License: BSD3 License-file: COPYING Author: Happstack team, HAppS LLC Maintainer: Happstack team homepage: http://happstack.com Category: Web, Distributed Computing Build-Type: Simple Cabal-Version: >= 1.6 source-repository head type: darcs subdir: happstack location: http://hub.darcs.net/stepcut/happstack Flag base4 Description: Choose the even newer, even smaller, split-up base package. Flag tests Description: Build the testsuite, and include the tests in the library Default: False Library if flag(tests) Exposed-modules: Happstack.Tests other-modules: Paths_happstack build-depends: base >= 3 && <5, happstack-server >= 7.0 && < 7.2 if flag(tests) hs-source-dirs: tests if impl(ghc >= 6.12) ghc-options: -Wall -fno-warn-unused-do-bind else ghc-options: -Wall Executable happstack-tests Main-Is: Test.hs GHC-Options: -threaded hs-source-dirs: tests if flag(tests) Buildable: True Build-depends: HUnit else Buildable: False happstack-7.0.1/tests/0000755000000000000000000000000012040351147013022 5ustar0000000000000000happstack-7.0.1/tests/Test.hs0000644000000000000000000000117312040351147014277 0ustar0000000000000000module Main where import Happstack.Tests (allTests) import Test.HUnit (errors, failures, putTextToShowS,runTestText, runTestTT) import System.Exit (exitFailure) import System.IO (hIsTerminalDevice, stdout) -- |A simple driver for running the local test suite. main :: IO () main = do c <- do istty <- hIsTerminalDevice stdout if istty then runTestTT allTests else do (c,st) <- runTestText putTextToShowS allTests putStrLn (st "") return c case failures c + errors c of 0 -> return () n -> exitFailure happstack-7.0.1/tests/Happstack/0000755000000000000000000000000012040351147014740 5ustar0000000000000000happstack-7.0.1/tests/Happstack/Tests.hs0000644000000000000000000000077612040351147016410 0ustar0000000000000000module Happstack.Tests where import qualified Happstack.Util.Tests as Util import qualified Happstack.Data.Tests as Data import qualified Happstack.Data.IxSet.Tests as IxSet import qualified Happstack.State.Tests as State import qualified Happstack.Server.Tests as Server import qualified Happstack.Server.Tests as Contrib import Test.HUnit allTests :: Test allTests = "happstack" ~: [ Util.allTests, Data.allTests, IxSet.allTests, State.allTests, Server.allTests, Contrib.allTests ]