Case splitting works in Emacs!

2014-06-26 21:17:22 +02:00
parent 40cd5b7deb
commit 3ef1979f67
2 changed files with 12 additions and 9 deletions
--- a/Language/Haskell/GhcMod/Rewrite.hs
+++ b/Language/Haskell/GhcMod/Rewrite.hs
@@ -257,7 +257,7 @@ sig opt file lineNo colNo = ghandle handler body
        modSum <- Gap.fileModSummary file
        sigTy <- getSignature modSum lineNo colNo
        case sigTy of
-          Nothing -> return ""
+          Nothing -> return $ convert opt ([] :: [String])
          Just (Signature loc names ty) -> do
            return $ convert opt $ ( "function"
                                   , fourInts loc