X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FPreprocess.hs;h=37b1a75ad997dbc7cfe14cf5fca0b91c5b4b287b;hb=d05d8c883eaca12ee621975a2b95c5ebdc2357d2;hp=5e1d095151fb16b9a59e86730af5946971317638;hpb=858129cb755aa09da2b7bd758efb8519f2c89103;p=Lucu.git diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs index 5e1d095..37b1a75 100644 --- a/Network/HTTP/Lucu/Preprocess.hs +++ b/Network/HTTP/Lucu/Preprocess.hs @@ -1,4 +1,3 @@ --- #hide module Network.HTTP.Lucu.Preprocess ( preprocess ) @@ -47,8 +46,6 @@ import Network.URI -} -import GHC.Conc (unsafeIOToSTM) - preprocess :: Interaction -> STM () preprocess itr = itr `seq`