/dports/devel/hs-haskell-language-server/haskell-language-server-1.4.0/_cabal_deps/haskell-src-exts-1.23.1/tests/examples/ |
H A D | ExtraPrettyParentheses.hs.prettyparser.golden | 5 …FunBind () [InfixMatch () (PVar () (Ident () "x")) (Symbol () "*") [PLit () (Negative ()) (Int () … 9 …FunBind () [InfixMatch () (PVar () (Ident () "x")) (Symbol () "*") [PParen () (PLit () (Negative (…
|
H A D | ByteStringUtils.hs.prettyparser.golden | 5 …FunBind () [Match () (Ident () "debugForeignPtr") [PVar () (Ident () "fp"),PVar () (Ident () "n")]… 9 …FunBind () [Match () (Ident () "debugForeignPtr") [PVar () (Ident () "fp"),PVar () (Ident () "n")]…
|
H A D | EmptyCase.hs.parser.golden | 49 [ FunBind 111 , FunBind
|
H A D | ExtraPrettyParentheses.hs.parser.golden | 116 , FunBind 224 , FunBind 350 , FunBind
|
/dports/devel/hs-hoogle/hoogle-5.0.18.2/_cabal_deps/haskell-src-exts-1.23.0/tests/examples/ |
H A D | ExtraPrettyParentheses.hs.prettyparser.golden | 5 …FunBind () [InfixMatch () (PVar () (Ident () "x")) (Symbol () "*") [PLit () (Negative ()) (Int () … 9 …FunBind () [InfixMatch () (PVar () (Ident () "x")) (Symbol () "*") [PParen () (PLit () (Negative (…
|
H A D | ByteStringUtils.hs.prettyparser.golden | 5 …FunBind () [Match () (Ident () "debugForeignPtr") [PVar () (Ident () "fp"),PVar () (Ident () "n")]… 9 …FunBind () [Match () (Ident () "debugForeignPtr") [PVar () (Ident () "fp"),PVar () (Ident () "n")]…
|
H A D | EmptyCase.hs.parser.golden | 49 [ FunBind 111 , FunBind
|
H A D | ExtraPrettyParentheses.hs.parser.golden | 116 , FunBind 224 , FunBind 350 , FunBind
|
/dports/www/hs-postgrest/postgrest-8.0.0/_cabal_deps/haskell-src-exts-1.23.1/tests/examples/ |
H A D | ExtraPrettyParentheses.hs.prettyparser.golden | 5 …FunBind () [InfixMatch () (PVar () (Ident () "x")) (Symbol () "*") [PLit () (Negative ()) (Int () … 9 …FunBind () [InfixMatch () (PVar () (Ident () "x")) (Symbol () "*") [PParen () (PLit () (Negative (…
|
H A D | ByteStringUtils.hs.prettyparser.golden | 5 …FunBind () [Match () (Ident () "debugForeignPtr") [PVar () (Ident () "fp"),PVar () (Ident () "n")]… 9 …FunBind () [Match () (Ident () "debugForeignPtr") [PVar () (Ident () "fp"),PVar () (Ident () "n")]…
|
H A D | EmptyCase.hs.parser.golden | 49 [ FunBind 111 , FunBind
|
H A D | ExtraPrettyParentheses.hs.parser.golden | 116 , FunBind 224 , FunBind 350 , FunBind
|
/dports/devel/hs-hlint/hlint-3.3.4/src/GHC/Util/ |
H A D | HsDecl.hs | 22 ValD _ FunBind{fun_id} -> Just $ unLoc fun_id 34 bindName (L _ FunBind{fun_id}) = Just $ rdrNameStr fun_id
|
/dports/devel/hs-haskell-language-server/haskell-language-server-1.4.0/_cabal_deps/hlint-3.2.7/src/GHC/Util/ |
H A D | HsDecl.hs | 22 ValD _ FunBind{fun_id} -> Just $ unLoc fun_id 34 bindName (L _ FunBind{fun_id}) = Just $ rdrNameStr fun_id
|
/dports/devel/hs-haskell-language-server/haskell-language-server-1.4.0/_cabal_deps/hlint-3.2.7/src/Hint/ |
H A D | Unsafe.hs | 55 FunBind {fun_id=L _ (Unqual x) 72 isUnsafeDecl (ValD _ FunBind {fun_matches=MG {mg_origin=FromSource,mg_alts=L _ alts}}) =
|
H A D | Smell.hs | 134 FunBind {fun_matches=MG { 144 declSpans f@(L l (ValD _ FunBind {})) = [(l, warn "Long function" f f [])]
|
/dports/devel/hs-hlint/hlint-3.3.4/src/Hint/ |
H A D | Unsafe.hs | 55 FunBind {fun_id=L _ (Unqual x) 72 isUnsafeDecl (ValD _ FunBind {fun_matches=MG {mg_origin=FromSource,mg_alts=L _ alts}}) =
|
H A D | Smell.hs | 133 FunBind {fun_matches=MG { 143 declSpans f@(L l (ValD _ FunBind {})) = [(l, warn "Long function" f f [])]
|
/dports/devel/hs-haskell-language-server/haskell-language-server-1.4.0/_cabal_deps/haskell-src-exts-1.23.1/src/Language/Haskell/Exts/ |
H A D | ParseUtils.hs | 822 Nothing -> return (FunBind l $ 976 mergeFunBinds revDs (FunBind l' ms1@(Match _ name ps _ _:_):ds1) = 980 mergeMatches ms' (FunBind _ ms@(Match loc name' ps' _ _:_):ds) l 987 mergeMatches ms' ds l = mergeFunBinds (FunBind l ms':revDs) ds 988 mergeFunBinds revDs (FunBind l' ims1@(InfixMatch _ _ name _ _ _:_):ds1) = 991 mergeInfix ims' (FunBind _ ims@(InfixMatch loc _ name' _ _ _:_):ds) l 994 mergeInfix ms' ds l = mergeFunBinds (FunBind l ms':revDs) ds 1005 mergeMatches ms' (ClsDecl _ (FunBind _ ms@(Match loc name' ps' _ _:_)):ds) l 1019 mergeInfix ms' ds l = mergeClsFunBinds (ClsDecl l (FunBind l ms'):revDs) ds 1031 mergeMatches ms' (InsDecl _ (FunBind _ ms@(Match loc name' ps' _ _:_)):ds) l [all …]
|
/dports/devel/hs-hoogle/hoogle-5.0.18.2/_cabal_deps/haskell-src-exts-1.23.0/src/Language/Haskell/Exts/ |
H A D | ParseUtils.hs | 822 Nothing -> return (FunBind l $ 976 mergeFunBinds revDs (FunBind l' ms1@(Match _ name ps _ _:_):ds1) = 980 mergeMatches ms' (FunBind _ ms@(Match loc name' ps' _ _:_):ds) l 987 mergeMatches ms' ds l = mergeFunBinds (FunBind l ms':revDs) ds 988 mergeFunBinds revDs (FunBind l' ims1@(InfixMatch _ _ name _ _ _:_):ds1) = 991 mergeInfix ims' (FunBind _ ims@(InfixMatch loc _ name' _ _ _:_):ds) l 994 mergeInfix ms' ds l = mergeFunBinds (FunBind l ms':revDs) ds 1005 mergeMatches ms' (ClsDecl _ (FunBind _ ms@(Match loc name' ps' _ _:_)):ds) l 1019 mergeInfix ms' ds l = mergeClsFunBinds (ClsDecl l (FunBind l ms'):revDs) ds 1031 mergeMatches ms' (InsDecl _ (FunBind _ ms@(Match loc name' ps' _ _:_)):ds) l [all …]
|
/dports/www/hs-postgrest/postgrest-8.0.0/_cabal_deps/haskell-src-exts-1.23.1/src/Language/Haskell/Exts/ |
H A D | ParseUtils.hs | 822 Nothing -> return (FunBind l $ 976 mergeFunBinds revDs (FunBind l' ms1@(Match _ name ps _ _:_):ds1) = 980 mergeMatches ms' (FunBind _ ms@(Match loc name' ps' _ _:_):ds) l 987 mergeMatches ms' ds l = mergeFunBinds (FunBind l ms':revDs) ds 988 mergeFunBinds revDs (FunBind l' ims1@(InfixMatch _ _ name _ _ _:_):ds1) = 991 mergeInfix ims' (FunBind _ ims@(InfixMatch loc _ name' _ _ _:_):ds) l 994 mergeInfix ms' ds l = mergeFunBinds (FunBind l ms':revDs) ds 1005 mergeMatches ms' (ClsDecl _ (FunBind _ ms@(Match loc name' ps' _ _:_)):ds) l 1019 mergeInfix ms' ds l = mergeClsFunBinds (ClsDecl l (FunBind l ms'):revDs) ds 1031 mergeMatches ms' (InsDecl _ (FunBind _ ms@(Match loc name' ps' _ _:_)):ds) l [all …]
|
/dports/math/hs-Agda/Agda-2.6.2/src/full/Agda/Compiler/MAlonzo/ |
H A D | Compiler.hs | 406 , HS.FunBind [HS.Match d [] (HS.UnGuardedRhs HS.unit_con) emptyBinds] ] ++ 421 … , HS.FunBind [HS.Match d (vars HS.PVar np) (HS.UnGuardedRhs HS.unit_con) emptyBinds] ] ++ 436 … , HS.FunBind [HS.Match d (vars HS.PVar np) (HS.UnGuardedRhs HS.unit_con) emptyBinds] ] ++ 447 , HS.FunBind [HS.Match d [HS.PVar (ihname "a" 0)] 556 funbind f ps b = HS.FunBind [HS.Match f ps (HS.UnGuardedRhs b) emptyBinds] 572 mkwhere (HS.FunBind [m0, HS.Match dn ps rhs emptyBinds] : fbs@(_:_)) = 573 [HS.FunBind [m0, HS.Match dn ps rhs bindsAux]] 585 fb e = [HS.FunBind [HS.Match (unqhname "d" q) [] 650 , HS.FunBind [HS.Match (unqhname "check" q) [] 666 , HS.FunBind [HS.Match (unqhname "cover" q) [HS.PVar $ HS.Ident "x"] [all …]
|
/dports/devel/hs-haskell-language-server/haskell-language-server-1.4.0/_cabal_deps/apply-refact-0.9.3.0/src/Refact/ |
H A D | Compat.hs | 86 FunBind, 203 type FunBind = HsMatchContext GhcPs type 205 type FunBind = HsMatchContext RdrName function
|
/dports/lang/ghc/ghc-8.10.7/compiler/typecheck/ |
H A D | TcBinds.hs | 556 bind_fvs (FunBind { fun_ext = fvs }) = fvs 688 (dL->L loc (FunBind { fun_id = (dL->L nm_loc name) 714 ; let bind' = FunBind { fun_id = cL nm_loc mono_id 1252 [ dL->L b_loc (FunBind { fun_id = (dL->L nm_loc name) 1278 FunBind { fun_id = cL nm_loc mono_id, function 1335 tcLhs sig_fn no_gen (FunBind { fun_id = (dL->L nm_loc name) 1425 ; return ( FunBind { fun_id = cL loc mono_id 1653 | [lbind@(dL->L _ (FunBind { fun_id = v }))] <- lbinds 1662 restricted (FunBind { fun_id = v, fun_matches = m }) = restricted_match m 1682 bindFvs (FunBind { fun_id = (dL->L _ f)
|
/dports/devel/hs-haskell-language-server/haskell-language-server-1.4.0/_cabal_deps/ghc-exactprint-0.6.4/src/Language/Haskell/GHC/ExactPrint/ |
H A D | Transform.hs | 517 Just (GHC.L l (GHC.ValD _ fb@(GHC.FunBind{}))) -> do 519 Just (GHC.L l (GHC.ValD fb@(GHC.FunBind{}))) -> do 523 Just fb'@(GHC.L _ (GHC.FunBind{})) -> do 556 balanceCommentsFB (GHC.L _ (GHC.FunBind _ _ (GHC.MG _ (GHC.L _ matches) _) _)) second = do 564 balanceCommentsFB (GHC.L _ (GHC.FunBind _ _ (GHC.MG matches _ _ _) _ _ _)) second = do 1130 lhsbind (b@(GHC.L _ GHC.FunBind{}):: GHC.LHsBind GhcPs) 1178 lhsbind (GHC.L _ (GHC.FunBind _ _ (GHC.MG _ (GHC.L _ matches) _) _)) = do 1180 lhsbind (GHC.L _ (GHC.FunBind _ _ (GHC.MG _ (GHC.L _ matches) _) _ _)) = do 1182 lhsbind (GHC.L _ (GHC.FunBind _ _ (GHC.MG _ (GHC.L _ matches) _) _ _)) = do 1184 lhsbind (GHC.L _ (GHC.FunBind _ (GHC.MG (GHC.L _ matches) _ _ _) _ _ _)) = do [all …]
|