Use new node shape for _all_ nodes

Including ones with no outgoing edges, i.e the one in the PreIdleHook.

src/Search/Search.hs

@@ -16,6 +16,7 @@ import Control.Monad
 import System.Exit
 import System.Process
 import System.IO
+import Data.Foldable
 
 -- | (Syscall, Statehash)
 type Vertex = (Text, Text)
@@ -156,8 +157,9 @@ graph2Dot graph =
       T.drop (T.length "OSEKOS_") txt
 
 dotNodes :: Graph -> Text
-dotNodes = foldMap formatNode . M.keys
+dotNodes = foldMap formatNode . allNotes
   where
+    allNotes m = M.keysSet m `S.union` (fold m)
     formatNode (call, state) = nodeId (call,state)
                             <> " [label=\""
                             <> "State: " <> state <> "\\n"