nullState :: Status -> State
nullState = State Nothing Nothing Nothing Normal None
nullState :: Status -> State
nullState = State Nothing Nothing Nothing Normal None
nullState = State Nothing Nothing Nothing Normal None