Revision aa8d2e71 hscan.hs

b/hscan.hs
135 135 
              printf "%-*s " nlen name
136 136 
              hFlush stdout
137 137 
              input_data <- Rapi.loadData name
138 
              let ldresult = input_data >>= Loader.mergeData
138 
              let ldresult = input_data >>= Loader.mergeData []
139 139 
              (case ldresult of
140 140 
                 Bad err -> printf "\nError: failed to load data. \
141 141 
                                   \Details:\n%s\n" err

Also available in: Unified diff