@@ -101,10 +101,6 @@ iWarn fc err =
101101 lineFC :: FC
102102 lineFC = FC fn (si, 1) (si, length (fromJust sourceLine))
103103
104− intersection :: FC -> FC -> FC
105− intersection (FC fn1 s1 e1) (FC fn2 s2 e2) = FC fn1 (max s1 s2) (min e1 e2)
106− intersection _ _ = NoFC
107−
108104 intersects :: FC -> FC -> Bool
109105 intersects (FC fn1 s1 e1) (FC fn2 s2 e2)
110106 | fn1 /= fn2 = False
@@ -113,6 +109,12 @@ iWarn fc err =
113109 | otherwise = True
114110 intersects _ _ = False
115111
112+ intersection :: FC -> FC -> FC
113+ intersection fc1@(FC fn1 s1 e1) fc2@(FC _ s2 e2)
114+ | intersects fc1 fc2 = FC fn1 (max s1 s2) (min e1 e2)
115+ | otherwise = NoFC
116+ intersection _ _ = NoFC
117+
116118 width :: Ann -> Int
117119 width (AText s) = length s
118120 width (ATagged _ n) = width n