Revision 8472a321 hscan.hs

b/hscan.hs
6 6 

  		





  7
  7
  
    
import Data.List


  		





  8
  8
  
    
import Data.Function


  		





  9
  
  
    
import Data.Maybe(fromJust)


  		





  10
  9
  
    
import Monad


  		





  11
  10
  
    
import System


  		





  12
  11
  
    
import System.IO


  		





  ......




  162
  161
  
    
                 Bad err -> printf "\nError: failed to load data. \


  		





  163
  162
  
    
                                   \Details:\n%s\n" err


  		





  164
  163
  
    
                 Ok x -> do


  		





  165
  
  
    
                   let (nl, il, csf, _, _) = x


  		





  
  164
  
    
                   let (nl, il, csf) = x


  		





  166
  165
  
    
                       (_, fix_nl) = Loader.checkData nl il


  		





  167
  166
  
    
                   putStrLn $ printCluster fix_nl il


  		





  168
  167
  
    
                   when (optShowNodes opts) $ do


  		












Also available in:
  Unified diff