@@ -1365,7 +1365,7 @@ loadSource lidr f toline
13651365 -- process and check module aliases
13661366 let modAliases = M.fromList
13671367 [(prep alias, prep realName) | (reexport, realName, Just alias, fc) <- imports]
1368− prep = map T.pack . reverse . Spl.splitOn "/"
1368+ prep = map T.pack . reverse . Spl.splitOn [pathSeparator]
13691369 aliasNames = [(alias, fc) | (_, _, Just alias, fc) <- imports]
13701370 histogram = groupBy ((==) `on` fst) . sortBy (comparing fst) $ aliasNames
13711371 case map head . filter ((/= 1) . length) $ histogram of