Start to generalise text input to "terminal signal" input

src/Dodge/Data/CWorld.hs

@@ -6,7 +6,7 @@
 module Dodge.Data.CWorld (
     module Dodge.Data.CWorld,
     module Dodge.Data.LWorld,
-    module Dodge.Data.CamPos
+    module Dodge.Data.Camera
 ) where
 
 import Data.Tile
@@ -18,13 +18,13 @@ import Data.Aeson.TH
 --import Dodge.Data.GenParams
 import Dodge.GameRoom
 import Geometry.ConvexPoly
-import Dodge.Data.CamPos
+import Dodge.Data.Camera
 import qualified Data.IntSet as IS
 import Data.Graph.Inductive
 
 data CWorld = CWorld
     { _lWorld :: LWorld
-    , _cwCamPos :: CamPos
+    , _cwCam :: Camera
     , _cwGen :: CWGen
     , _cClock :: Int
     , _seenWalls :: IS.IntSet