module Language.Primitives.Io where

import Debug.Trace

import Language.Primitives.IoAble

data Io = Io
  deriving (Eq, Show, Ord)

ioInsert :: IoAble a => a -> a -> ()
ioInsert key value = if meansPrint key
  then trace (stringify value) ()
  else ()