warpViewCycle :: WarpViewStyle -> WarpViewStyle
warpViewCycle x
  | x == maxBound = minBound
  | otherwise = succ x
warpViewCycle :: WarpViewStyle -> WarpViewStyle
warpViewCycle x
  | x == maxBound = minBound
  | otherwise = succ x
warpViewCycle x
  | x == maxBound = minBound
  | otherwise = succ x