@@ -118,6 +118,7 @@ fetchWith (supportsRev, kind, addArgs) source = do
119 processOutputWithRev :: [String] -> IO (DerivationSource, FilePath)
119 processOutputWithRev :: [String] -> IO (DerivationSource, FilePath)
120 processOutputWithRev [rev,hash,path] = return (DerivationSource kind (sourceUrl source) (extractRevision rev) hash, path)
120 processOutputWithRev [rev,hash,path] = return (DerivationSource kind (sourceUrl source) (extractRevision rev) hash, path)
121+ processOutputWithRev [rev,_,hash,path] = processOutputWithRev [rev,hash,path]
121 processOutputWithRev out = unexpectedOutput out
122 processOutputWithRev out = unexpectedOutput out
123 extractRevision :: String -> String
124 extractRevision :: String -> String