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