Commit 541cc500 authored by pcapriotti's avatar pcapriotti

Remove an unsafe use of head (#7118)

parent e9a587a1
......@@ -382,7 +382,7 @@ hscParse' mod_summary = do
srcs0 = nub $ filter (not . (tmpDir dflags `isPrefixOf`))
$ filter (not . (== n_hspp))
$ map FilePath.normalise
$ filter (not . (== '<') . head)
$ filter (not . (isPrefixOf "<"))
$ map unpackFS
$ srcfiles pst
srcs1 = case ml_hs_file (ms_location mod_summary) of
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment