adjusting small things

src/MindMap.hs

@@ -19,7 +19,7 @@ import Data.List (find)
 import Types
 
 friction :: Double
-friction = 0.05
+friction = 0.1
 l0 :: Double
 l0 = 1
 springKonst :: Double
@@ -72,7 +72,7 @@ springField inGraph =
       in  (mmId node, fmap (* friction) accel)
     calcul graph =
       let deltas = map (calculDelta graph) (vertexList graph)
-      in  if any (\(_, v) -> len v > 0.1)
+      in  if any (\(_, v) -> len v > 0.05)
             (A.log A.Debug ("deltas: " ++ show deltas) deltas)
             -- deltas
         then

tracer-game.cabal

@@ -27,6 +27,7 @@ executable tracer-game
                      , Types.FontId
                      , Types.StateData
                      , Types.Animation
+                     , Types.MindMap
                      , StateMachine
                      , Floorplan
                      , Interior
@@ -34,6 +35,7 @@ executable tracer-game
                      , Load
                      , Test
                      , Navigation
+                     , MindMap
                      , NPC
                      , Util
   default-extensions:  OverloadedStrings