git.iko.soy/ghcide
on master help sign in
Fix #237 (#243)
87f449dJacek Generowicz
src/Development/IDE/Spans/Calculate.hs+1−1
compare with master
unifiedsplit
@@ -74,7 +74,7 @@ getSpanInfo mods tcm =
74 where cmp (_,a,_) (_,b,_)
74 where cmp (_,a,_) (_,b,_)
75 | a `isSubspanOf` b = LT
75 | a `isSubspanOf` b = LT
76 | b `isSubspanOf` a = GT
76 | b `isSubspanOf` a = GT
77− | otherwise = EQ
77+ | otherwise = compare (srcSpanStart a) (srcSpanStart b)
78
78
79getExports :: TypecheckedModule -> [(SpanSource, SrcSpan, Maybe Type)]
79getExports :: TypecheckedModule -> [(SpanSource, SrcSpan, Maybe Type)]
80getExports m
80getExports m
test/exe/Main.hs+2−2
@@ -810,9 +810,9 @@ findDefinitionAndHoverTests = let
810 , test yes broken clL23 cls "class in instance declaration"
810 , test yes broken clL23 cls "class in instance declaration"
811 , test yes broken clL25 cls "class in signature" -- 147
811 , test yes broken clL25 cls "class in signature" -- 147
812 , test broken broken eclL15 ecls "external class in signature"
812 , test broken broken eclL15 ecls "external class in signature"
813− , test yes broken dnbL29 dnb "do-notation bind" -- 137
813+ , test yes yes dnbL29 dnb "do-notation bind" -- 137
814 , test yes yes dnbL30 dnb "do-notation lookup"
814 , test yes yes dnbL30 dnb "do-notation lookup"
815− , test yes broken lcbL33 lcb "listcomp bind" -- 137
815+ , test yes yes lcbL33 lcb "listcomp bind" -- 137
816 , test yes yes lclL33 lcb "listcomp lookup"
816 , test yes yes lclL33 lcb "listcomp lookup"
817 ]
817 ]
818 where yes, broken :: (TestTree -> Maybe TestTree)
818 where yes, broken :: (TestTree -> Maybe TestTree)