[Minor] adding type signature

src/Data/Graph/Clustering/FLouvain.hs

@@ -118,6 +118,7 @@ step (p, v, l, s) cgr = cgr
   where
     mNc = nodeCommunity  v cgr
     ncs = nodeNeighbours v cgr
+
     -- We move node from community nc into ncs
     moves :: Maybe (LNode Community, [LNode Community])
     moves = case mNc of
@@ -177,11 +178,12 @@ moveNodeWithNeighbours :: Adj FEdge -> Node -> Direction -> Community -> Communi
 moveNodeWithNeighbours lnNeighbors n direction (Community (ns, inwsum, totwsum)) =
   Community (newNs, newInWsum, newTotWsum)
     where
-
+      newNs :: [Node]
       newNs = case direction of
         Into  -> n:ns
         OutOf -> DL.delete n ns
 
+      newInWsum, newTotWsum :: Double
       newInWsum  = inwsum  + directionN * sumN
       newTotWsum = totwsum + directionN * (sumN - sumNonCom)