drop comment

CQCL · Dec 3, 2024 · eb2795d · eb2795d
1 parent 1c854f2
commit eb2795d
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/brat/Brat/Checker/Helpers.hs b/brat/Brat/Checker/Helpers.hs
@@ -124,8 +124,6 @@ pullPorts toPort showFn to_pull types = do -- in Checking
     case partition ((== p) . toPort . fst) available of
       ([], _) -> lift $ err $ BadPortPull $ "Port not found: " ++ p ++ " in " ++ showFn available
       ([found], remaining) -> put remaining >> pure found
-      -- this is not quite a refactor: we used to show only the suffix
-      -- of 'available' beginning with the first match
       (_, _) -> lift $ err $ AmbiguousPortPull p (showFn available)
 
 ensureEmpty :: Show ty => String -> [(NamedPort e, ty)] -> Checking ()