First attempt to add auto

Language/Haskell/GhcMod.hs

@@ -36,6 +36,7 @@ module Language.Haskell.GhcMod (
   , splits
   , sig
   , refine
+  , auto
   , modules
   , languages
   , flags

Language/Haskell/GhcMod/CaseSplit.hs

@@ -5,8 +5,7 @@ module Language.Haskell.GhcMod.CaseSplit (
   ) where
 
 import CoreMonad (liftIO)
-import Data.Function (on)
-import Data.List (find, intercalate, sortBy)
+import Data.List (find, intercalate)
 import Data.Maybe (isJust)
 import qualified Data.Text as T
 import qualified Data.Text.IO as T (readFile)
@@ -18,7 +17,7 @@ import Language.Haskell.GhcMod.Convert
 import qualified Language.Haskell.GhcMod.Gap as Gap
 import Language.Haskell.GhcMod.Monad
 import Language.Haskell.GhcMod.SrcUtils
-import Outputable (ppr, PprStyle)
+import Outputable (PprStyle)
 import qualified TyCon as Ty
 import qualified Type as Ty
 

Language/Haskell/GhcMod/FillSig.hs

@@ -3,6 +3,7 @@
 module Language.Haskell.GhcMod.FillSig (
     sig
   , refine
+  , auto
   ) where
 
 import Data.Char (isSymbol)
@@ -23,6 +24,7 @@ import qualified Type as Ty
 import qualified HsBinds as Ty
 import qualified Class as Ty
 import qualified Language.Haskell.Exts.Annotated as HE
+import Djinn.GHC
 
 ----------------------------------------------------------------
 -- INTIAL CODE FROM FUNCTION OR INSTANCE SIGNATURE
@@ -143,6 +145,7 @@ getSignatureFromHE file lineNo colNo = do
                    return $ HEFamSignature s Open name (map cleanTyVarBind tys)
                  HE.DataFamDecl (HE.SrcSpanInfo s _) _ (HE.DHead _ name tys) _ ->
                    return $ HEFamSignature s Open name (map cleanTyVarBind tys)
+                 _ -> fail ""
              _ -> Nothing
   where cleanTyVarBind (HE.KindedVar _ n _) = n
         cleanTyVarBind (HE.UnkindedVar _ n) = n
@@ -310,3 +313,26 @@ doParen True  s = if ' ' `elem` s then '(':s ++ ")" else s
 isSearchedVar :: Id -> G.HsExpr Id -> Bool
 isSearchedVar i (G.HsVar i2) = i == i2
 isSearchedVar _ _ = False
+
+
+----------------------------------------------------------------
+-- REFINE AUTOMATICALLY
+----------------------------------------------------------------
+
+auto :: IOish m
+     => FilePath     -- ^ A target file.
+     -> Int          -- ^ Line number.
+     -> Int          -- ^ Column number.
+     -> GhcModT m String
+auto file lineNo colNo = ghandle handler body
+  where
+    body = inModuleContext file $ \dflag style -> do
+        opt <- options
+        modSum <- Gap.fileModSummary file
+        p <- G.parseModule modSum
+        tcm@TypecheckedModule{tm_typechecked_source = tcs} <- G.typecheckModule p
+        whenFound' opt (findVar dflag style tcm tcs lineNo colNo) $ \(loc, _name, rty, paren) -> do
+          text:_ <- djinn False rty
+          return (fourInts loc, doParen paren text)
+            
+    handler (SomeException _) = emptyResult =<< options