more commented out code

pepeiborra · pepeiborra · commit 5fcab6cdf426 · 2022-01-06T21:11:01.000+01:00
diff --git a/ghcide/src/Development/IDE/Plugin/Completions/Logic.hs b/ghcide/src/Development/IDE/Plugin/Completions/Logic.hs
@@ -507,7 +507,6 @@ findRecordCompl uri pmod mn DataDecl {tcdLName, tcdDataDefn} = result
                  ]
         doc = SpanDocText (getDocumentation [pmod] $ reLoc tcdLName) (SpanDocUris Nothing Nothing)
 
-        -- getFlds :: HsConDeclH98Details GhcPs -> Maybe [ConDeclField GhcPs]
         getFlds conArg = case conArg of
                              RecCon rec  -> Just $ unLoc <$> unLoc rec
                              PrefixCon{} -> Just []

Original file line number	Diff line number	Diff line change
`@@ -507,7 +507,6 @@ findRecordCompl uri pmod mn DataDecl {tcdLName, tcdDataDefn} = result`
`507`	`507`	`]`
`508`	`508`	`doc = SpanDocText (getDocumentation [pmod] $ reLoc tcdLName) (SpanDocUris Nothing Nothing)`
`509`	`509`
`510`		`- -- getFlds :: HsConDeclH98Details GhcPs -> Maybe [ConDeclField GhcPs]`
`511`	`510`	`getFlds conArg = case conArg of`
`512`	`511`	`RecCon rec -> Just $ unLoc <$> unLoc rec`
`513`	`512`	`PrefixCon{} -> Just []`