parseStatus :: Char -> Status
parseStatus c = if c == '0' then Unpowered else Powered
parseStatus :: Char -> Status
parseStatus c = if c == '0' then Unpowered else Powered
parseStatus c = if c == '0' then Unpowered else Powered