local

Author: sailaja-b-juspay

sheriff/src/Sheriff/Plugin.hs

@@ -1033,7 +1033,7 @@ getFnNameWithAllArgs :: LHsExpr GhcTc -> Maybe (Located Var, [LHsExpr GhcTc])
 getFnNameWithAllArgs expr = case expr of
   L loc (HsVar _ v) -> 
     trace ("getFnNameWithAllArgs: Detected HsVar with name = " <> showS v) $
-    Just (getLocated v loc, [])
+    Nothing
 
   L _ (HsConLikeOut _ cl) -> 
     trace "getFnNameWithAllArgs: Detected HsConLikeOut" $
@@ -1045,7 +1045,7 @@ getFnNameWithAllArgs expr = case expr of
 
   L _ (HsApp _ (L loc (HsVar _ v)) funr) -> 
     trace ("getFnNameWithAllArgs: Detected HsApp with HsVar function name = " <> showS v) $
-    Just (getLocated v loc, [funr])
+    Nothing
 
   L _ (HsPar _ expr) -> 
     trace "getFnNameWithAllArgs: Detected HsPar" $