Start to generalise text input to "terminal signal" input

src/Dodge/Zoning/World.hs

@@ -2,11 +2,11 @@ module Dodge.Zoning.World
     ( zoneOfSight
     ) where
 
-import Dodge.Data.CamPos
+import Dodge.Data.Camera
 import Geometry.Data
 import Control.Lens
 
-zoneOfSight :: Float -> CamPos -> [Int2]
+zoneOfSight :: Float -> Camera -> [Int2]
 zoneOfSight s w =
     [ V2 a b
     | a <- [minimum xs .. maximum xs]