NOP.hs

module Fingerprint.NOP (
    name
  , semantics
  ) where

import Instruction

-----------------------------------------------------------

name :: String
name = "NOP"

semantics :: (I i) => [(Char, Instruction i ())]
semantics = zip ['A'..'Z'] $ repeat nopInstr