Revision d5072e4c htools/hail.hs

b/htools/hail.hs
88 88 
            hPutStrLn stderr $ "Error: " ++ err
89 89 
            exitWith $ ExitFailure 1
90 90 
          Ok rq -> return rq
91 
  r2 <- if isJust (optDataFile opts) ||  (not . null . optNodeSim) opts
92 
        then  do
93 
          cdata <- loadExternalData opts
94 
          let Request rqt _ = r1
95 
          return $ Request rqt cdata
96 
        else return r1
97 
  return r2
91 
  (if isJust (optDataFile opts) ||  (not . null . optNodeSim) opts
92 
   then do
93 
     cdata <- loadExternalData opts
94 
     let Request rqt _ = r1
95 
     return $ Request rqt cdata
96 
   else return r1)
98 97 

  		





  99
  98
  
    
-- | Main function.


  		





  100
  99
  
    
main :: IO ()


  		












Also available in:
  Unified diff