mkQualOp :: Action
mkQualOp cfg p s z = (Just Located { srcRange = r, thing = Token t s}, z)
  where
  r = Range { from = p, to = moves p s, source = cfgSource cfg }
  t = Op (Other (map T.unpack ns) (T.unpack i))
  (ns,i) = splitQual s
mkQualOp :: Action
mkQualOp cfg p s z = (Just Located { srcRange = r, thing = Token t s}, z)
  where
  r = Range { from = p, to = moves p s, source = cfgSource cfg }
  t = Op (Other (map T.unpack ns) (T.unpack i))
  (ns,i) = splitQual s
mkQualOp cfg p s z = (Just Located { srcRange = r, thing = Token t s}, z)
  where
  r = Range { from = p, to = moves p s, source = cfgSource cfg }
  t = Op (Other (map T.unpack ns) (T.unpack i))
  (ns,i) = splitQual s