fromFilled :: FilledEntry -> Entry
fromFilled x = x{ieSource = Right $ ieSource x}
fromFilled :: FilledEntry -> Entry
fromFilled x = x{ieSource = Right $ ieSource x}
fromFilled x = x{ieSource = Right $ ieSource x}