-- | Create a typed row identifier from an integer.
--   Use with caution, preferably only when reading user input.
toId :: Int64 -> ID a
toId = ID . toRowId
toId :: Int64 -> ID a
toId = ID . toRowId
toId = ID . toRowId