change tree orders

WeissP · Oct 21, 2024 · b81788c · b81788c
1 parent a0b8ff2
commit b81788c
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/src/TreeActions.hs b/src/TreeActions.hs
@@ -45,14 +45,14 @@ myTreeConf =
 weissTreeActions =
   treeselectAction
     myTreeConf
-    $ [ Node
-          (TSNode "System" "System operations" (return ()))
-          [ Node (TSNode "Shutdown" "Poweroff the system" (spawn " sudo shutdown now")) []
-          , Node (TSNode "Reboot" "Reboot the system" (spawn "sudo reboot")) []
-          , Node (TSNode "Suspend" "Suspend the system" (spawn "sudo systemctl suspend")) []
-          ]
-      ]
-      <> scratchpadActions
+    $ scratchpadActions
+      <> [ Node
+            (TSNode "System" "System operations" (return ()))
+            [ Node (TSNode "Shutdown" "Poweroff the system" (spawn " sudo shutdown now")) []
+            , Node (TSNode "Reboot" "Reboot the system" (spawn "sudo reboot")) []
+            , Node (TSNode "Suspend" "Suspend the system" (spawn "sudo systemctl suspend")) []
+            ]
+         ]
   where
     scratchpadActions =
       myScratchPads <&> \(NS name _ _ _) ->