capture :: String -> Bool -> IO ()
capture !f !reorder = do 
  hdl <- openOffline f 
  let nmask = 0 :: Word32 -- capture _all_ the internet
  setFilter hdl filterStr True nmask
  if not reorder 
   then do dispatchBS hdl (-1) printPackets
           return ()
   else reorderPackets hdl 
capture :: String -> Bool -> IO ()
capture !f !reorder = do 
  hdl <- openOffline f 
  let nmask = 0 :: Word32 -- capture _all_ the internet
  setFilter hdl filterStr True nmask
  if not reorder 
   then do dispatchBS hdl (-1) printPackets
           return ()
   else reorderPackets hdl 
capture !f !reorder = do 
  hdl <- openOffline f 
  let nmask = 0 :: Word32 -- capture _all_ the internet
  setFilter hdl filterStr True nmask
  if not reorder 
   then do dispatchBS hdl (-1) printPackets
           return ()
   else reorderPackets hdl 