@@ -118,6 +118,7 @@ fetchWith (supportsRev, kind, addArgs) source = do
118118
119119 processOutputWithRev :: [String] -> IO (DerivationSource, FilePath)
120120 processOutputWithRev [rev,hash,path] = return (DerivationSource kind (sourceUrl source) (extractRevision rev) hash, path)
121+ processOutputWithRev [rev,_,hash,path] = processOutputWithRev [rev,hash,path]
121122 processOutputWithRev out = unexpectedOutput out
122123
123124 extractRevision :: String -> String