@@ -3,7 +3,7 @@ module Reporting.Error.Canonicalize where
33
44import Control.Arrow (second)
55import qualified Data.Char as Char
6−import Text.PrettyPrint.ANSI.Leijen (Doc, dullyellow, fillSep, indent, text, vcat)
6+import Text.PrettyPrint.ANSI.Leijen (Doc, dullyellow, fillSep, indent, text)
77
88import qualified AST.Expression.Canonical as Canonical
99import qualified AST.Module.Name as ModuleName
@@ -377,12 +377,6 @@ badMutualRecursion region name names =
377377 let
378378 header =
379379 Help.functionName name ++ " is defined in terms of itself in a sneaky way, causing an infinite loop."
380−
381− otherDefs =
382− if length names == 1 then
383− "one other definition"
384− else
385− show (length names) ++ " other definitions"
386380 in
387381 Report.report "BAD RECURSION" (Just region) header $
388382 Help.stack