@@ -1,10 +1,9 @@
11{-# LANGUAGE OverloadedStrings, NoMonomorphismRestriction #-}
2−module WaiAppStaticTest (specs) where
2+module WaiAppStaticTest (spec) where
33
44import Network.Wai.Application.Static
55
6−import Test.Hspec.Monadic
7−import Test.Hspec.HUnit ()
6+import Test.Hspec
87import Test.HUnit ((@?=))
98import qualified Data.ByteString.Char8 as S8
109-- import qualified Data.ByteString.Lazy.Char8 as L8
@@ -23,8 +22,8 @@ import Network.Mime
2322defRequest :: Request
2423defRequest = defaultRequest
2524
26−specs :: Specs
27−specs = do
25+spec :: Spec
26+spec = do
2827 let webApp = flip runSession $ staticApp $ defaultWebAppSettings "test"
2928 let fileServerApp = flip runSession $ staticApp $ defaultFileServerSettings "test"
3029