-- | Create a typed row identifier from an integer.
--   Use with caution, preferably only when reading user input.
fromId :: ID a -> Int64
fromId (ID i) = fromRowId i
fromId :: ID a -> Int64
fromId (ID i) = fromRowId i
fromId (ID i) = fromRowId i