From 7b4c7b75be351e9b6a40093cbccab728dd89064f Mon Sep 17 00:00:00 2001 From: Brian Wignall Date: Fri, 8 Nov 2019 16:21:03 -0500 Subject: Fix typos --- utils/genprimopcode/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'utils') diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index 3427a1ebae..b99f36dad2 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -427,7 +427,7 @@ wrapOp :: String -> String wrapOp nm | isAlpha (head nm) = nm | otherwise = "(" ++ nm ++ ")" --- | Turn an identifer or operator into its infix form +-- | Turn an identifier or operator into its infix form asInfix :: String -> String asInfix nm | isAlpha (head nm) = "`" ++ nm ++ "`" | otherwise = nm -- cgit v1.2.1