@@ -134,7 +134,7 @@ fetchWith (supportsRev, kind, addArgs) source = do
134134 buf' = BS.unlines (reverse ls)
135135 case length ls of
136136 0 -> return Nothing
137− 1 -> return (Just (DerivationSource kind (sourceUrl source) "" (BS.unpack (head (ls))) , sourceUrl source))
137+ 1 -> return (Just (DerivationSource kind (sourceUrl source) "" (BS.unpack (head ls)) , sourceUrl source))
138138 _ -> case eitherDecode buf' of
139139 Left err -> error ("invalid JSON: " ++ err ++ " in " ++ show buf')
140140 Right ds -> return (Just (ds { derivKind = kind }, BS.unpack l))