where
import Data.Data ( Data, constrFields, dataTypeConstrs, dataTypeOf )
where
import Data.Data ( Data, constrFields, dataTypeConstrs, dataTypeOf )
import Test.Tasty.HUnit ( (@?=), testCase )
import Text.XML.HXT.Core (
PU,
import Test.Tasty.HUnit ( (@?=), testCase )
import Text.XML.HXT.Core (
PU,
from_tuple = uncurryN MsgId
to_tuple m = (db_msg_id m, db_event_id m)
from_tuple = uncurryN MsgId
to_tuple m = (db_msg_id m, db_event_id m)