First attempt to add auto

src/GHCModi.hs

@@ -131,6 +131,7 @@ loop set mvar = do
         "split"  -> doSplit set arg
         "sig"    -> doSig set arg
         "refine" -> doRefine set arg
+        "auto"   -> doAuto set arg
         "boot"   -> bootIt set
         "browse" -> browseIt set arg
         "quit"   -> return ("quit", False, set)
@@ -271,6 +272,16 @@ doRefine set fileArg  = do
     ret <- refine file (read line) (read column) expr
     return (ret, True, set')
 
+doAuto :: IOish m
+       => Set FilePath
+       -> FilePath
+       -> GhcModT m (String, Bool, Set FilePath)
+doAuto set fileArg  = do
+    let [file, line, column] = words fileArg
+    set' <- newFileSet set file
+    ret <- auto file (read line) (read column)
+    return (ret, True, set')
+
 ----------------------------------------------------------------
 
 bootIt :: IOish m