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