parseLine :: String -> Room
parseLine line = Room {name=name, sector=sector, checksum=checksum}
where components = splitOn "-" line
parseLine :: String -> Room
parseLine line = Room {name=name, sector=sector, checksum=checksum}
where components = splitOn "-" line