Revision 5182e970 hscan.hs

b/hscan.hs
28 28 
module Main (main) where
29 29 

  		





  30
  30
  
    
import Data.List


  		





  31
  
  
    
import Data.Maybe (isJust, fromJust)


  		





  
  31
  
    
import Data.Maybe (isJust, fromJust, fromMaybe)


  		





  32
  32
  
    
import Monad


  		





  33
  33
  
    
#ifdef NO_CURL


  		





  34
  34
  
    
import System (exitWith, ExitCode(..))


  		





  ......




  174
  174
  
    
                "t_disk" "f_disk" "Score"


  		





  175
  175
  
    

  		





  176
  176
  
    
  when (null clusters) $ do


  		





  177
  
  
    
         let lsock = case optLuxi opts of


  		





  178
  
  
    
                       Just s -> s


  		





  179
  
  
    
                       Nothing -> defaultLuxiSocket


  		





  
  177
  
    
         let lsock = fromMaybe defaultLuxiSocket (optLuxi opts)


  		





  180
  178
  
    
         let name = local


  		





  181
  179
  
    
         input_data <- Luxi.loadData lsock


  		





  182
  180
  
    
         writeData nlen name opts (processData input_data)


  		












Also available in:
  Unified diff