Remove old withSocketsDo

src/Arxiv/Wrapper.hs

@@ -12,7 +12,6 @@ import Network.Api.Arxiv (Expression(..),  Field(..), (/*/), (/+/),(/-/))
 import Network.HTTP.Conduit (parseRequest)
 import Network.HTTP.Simple as HT
 import Network.HTTP.Types.Status
-import Network.Socket (withSocketsDo)
 import Text.HTML.TagSoup
 import qualified Data.ByteString as B hiding (unpack) 
 import qualified Data.ByteString.Char8 as B  (unpack) 
@@ -31,11 +30,11 @@ type Soup  = Tag String
 ------------------------------------------------------------
 -- | Simple Query search for terms in All fields
 apiSimple :: Maybe Limit -> [String] -> IO [Result]
-apiSimple limit query = withSocketsDo (execQuery limit $ simpleQuery query)
+apiSimple limit query = execQuery limit $ simpleQuery query
 
 -- | Complex Query search for terms in specific fields to be defined by Ax.Query
 apiComplex :: Maybe Limit -> Ax.Query -> IO [Result]
-apiComplex limit query = withSocketsDo (execQuery limit query)
+apiComplex limit query = execQuery limit query
 
 ------------------------------------------------------------
 simpleQuery :: [String] -> Ax.Query