rewriteTyped :: [Records] -> [Records]
rewriteTyped = transformBi g
  where
    g (deathrw -> Just x) = x
    g (birthrw -> Just x) = x
    g (burialrw -> Just x) = x
    g (namerw -> Just x) = x
    g (marriagerw -> Just x) = x
    g x = x
rewriteTyped :: [Records] -> [Records]
rewriteTyped = transformBi g
  where
    g (deathrw -> Just x) = x
    g (birthrw -> Just x) = x
    g (burialrw -> Just x) = x
    g (namerw -> Just x) = x
    g (marriagerw -> Just x) = x
    g x = x
rewriteTyped = transformBi g
  where
    g (deathrw -> Just x) = x
    g (birthrw -> Just x) = x
    g (burialrw -> Just x) = x
    g (namerw -> Just x) = x
    g (marriagerw -> Just x) = x
    g x = x