fetchTagIdsDB :: Internal.TagName -> DB [TagId]
fetchTagIdsDB (Internal.TagName tag_name) =
    fmap unwrapValues $
    select $ from $ \t -> do
        where_ $ t ^. TagName ==. val tag_name
        return $ t ^. TagId
fetchTagIdsDB :: Internal.TagName -> DB [TagId]
fetchTagIdsDB (Internal.TagName tag_name) =
    fmap unwrapValues $
    select $ from $ \t -> do
        where_ $ t ^. TagName ==. val tag_name
        return $ t ^. TagId
fetchTagIdsDB (Internal.TagName tag_name) =
    fmap unwrapValues $
    select $ from $ \t -> do
        where_ $ t ^. TagName ==. val tag_name
        return $ t ^. TagId