@@ -420,7 +420,7 @@ edit f orig
420 env <- runIO $ getEnvironment
420 env <- runIO $ getEnvironment
421 let editor = getEditor env
421 let editor = getEditor env
422 let line = case errSpan i of
422 let line = case errSpan i of
423− Just l -> " +" ++ show l ++ " "
423+ Just l -> " +" ++ show (fst (fc_start l)) ++ " "
424 Nothing -> " "
424 Nothing -> " "
425 let cmd = editor ++ line ++ fixName f
425 let cmd = editor ++ line ++ fixName f
426 runIO $ system cmd
426 runIO $ system cmd