@@ -41,10 +41,10 @@ fromDerivationSource DerivationSource{..} = Source derivUrl derivRevision $ Just
4141
4242-- | Fetch a source, trying any of the various nix-prefetch-* scripts.
4343fetch :: forall a. (String -> MaybeT IO a) -- ^ This function is passed the output path name as an argument.
44− -- It should return 'Nothing' if the file doesn't match the expected format.
45− -- This is required, because we cannot always check if a download succeeded otherwise.
46− -> Source -- ^ The source to fetch from.
47− -> IO (Maybe (DerivationSource, a)) -- ^ The derivation source and the result of the processing function. Returns Nothing if the download failed.
44+ -- It should return 'Nothing' if the file doesn't match the expected format.
45+ -- This is required, because we cannot always check if a download succeeded otherwise.
46+ -> Source -- ^ The source to fetch from.
47+ -> IO (Maybe (DerivationSource, a)) -- ^ The derivation source and the result of the processing function. Returns Nothing if the download failed.
4848fetch f = runMaybeT . fetchers where
4949 fetchers :: Source -> MaybeT IO (DerivationSource, a)
5050 fetchers source = msum . (fetchLocal source :) $ map (\fetcher -> fetchWith fetcher source >>= process)