@@ -101,6 +101,7 @@ addDefaultFixity rd@RenderedDeclaration{..}
101 | isOp rdTitle && isNothing rdFixity = rd { rdFixity = Just defaultFixity }
101 | isOp rdTitle && isNothing rdFixity = rd { rdFixity = Just defaultFixity }
102 | otherwise = rd
102 | otherwise = rd
104+ isOp :: String -> Bool
104 isOp str = "(" `isPrefixOf` str && ")" `isSuffixOf` str
105 isOp str = "(" `isPrefixOf` str && ")" `isSuffixOf` str
105 defaultFixity = P.Fixity P.Infixl (-1)
106 defaultFixity = P.Fixity P.Infixl (-1)