fix(Commands/Create): chmod homeDir to 700 upon creation

Author: uditkarode

src/Commands/Create.hs

@@ -109,6 +109,7 @@ create = do
 
   st <- addUser name
   homeDir <- userHomeDir name
+  run "chmod" ["700", homeDir]
   liftIO $ logSuccessLn st
 
   -- ask questions about the disk image