@@ -1,22 +1,17 @@
11{-# LANGUAGE OverloadedStrings #-}
22module PartialFileSpec (main, spec) where
33
4−import Network.Wai.Handler.Warp.Conduit
5−import Data.Conduit
6−import qualified Data.Conduit.List as CL
7−import Test.Hspec
8−import qualified Data.IORef as I
4+import Control.Concurrent (threadDelay)
95import qualified Data.ByteString as S
106import qualified Data.ByteString.Char8 as S8
11−import Control.Monad.Trans.Class (lift)
12−import RunSpec (withApp)
7+import Data.Maybe (mapMaybe)
8+import Network (connectTo, PortID (PortNumber))
139import Network.HTTP.Types (status200)
1410import Network.Wai
15−import System.IO (hClose, hFlush)
16−import Network (connectTo, PortID (PortNumber))
1711import Network.Wai.Handler.Warp
18−import Data.Maybe (mapMaybe)
19−import Control.Concurrent (threadDelay)
12+import RunSpec (withApp)
13+import System.IO (hClose, hFlush)
14+import Test.Hspec
2015
2116main :: IO ()
2217main = hspec spec