@@ -31,7 +31,6 @@ import Control.Applicative
3131import Control.Monad.State
3232import Control.Monad.Error.Class
3333
34−import Data.Maybe (fromMaybe, mapMaybe)
3534import Data.Function (on)
3635import Data.Functor.Identity
3736import Data.List (sort, groupBy, sortBy)
@@ -130,5 +129,5 @@ parseTicks = token (either (const Nothing) fromOp) P.<?> "infix function"
130129matchOp :: Qualified Ident -> P.Parsec Chain () ()
131130matchOp op = do
132131 ident <- parseOp
133− guard (qualify moduleName ident == qualify moduleName op)
132+ guard $ ident == op
134133