git.iko.soy/typeable/cabal2nix
on master help sign in
fetchWith: remove debug output
813d429Peter Simons
src/Distribution/NixOS/Fetch.hs−2
compare with master
unifiedsplit
@@ -70,8 +70,6 @@ fetch f = runMaybeT . fetchers where
70-- | Like 'fetch', but allows to specify which script to use.
70-- | Like 'fetch', but allows to specify which script to use.
71fetchWith :: (Bool, String) -> Source -> MaybeT IO (DerivationSource, FilePath)
71fetchWith :: (Bool, String) -> Source -> MaybeT IO (DerivationSource, FilePath)
72fetchWith (supportsRev, kind) source = do
72fetchWith (supportsRev, kind) source = do
73− liftIO $ hPutStrLn stderr $ "* trying fetcher: " ++ kind
74−
75 unless ((sourceRevision source /= "") || isNothing (sourceHash source) || not supportsRev) $
73 unless ((sourceRevision source /= "") || isNothing (sourceHash source) || not supportsRev) $
76 liftIO (hPutStrLn stderr "** need a revision for VCS when the hash is given. skipping.") >> mzero
74 liftIO (hPutStrLn stderr "** need a revision for VCS when the hash is given. skipping.") >> mzero
77
75