Home
last modified time | relevance | path

Searched refs:histLines (Results 1 – 3 of 3) sorted by relevance

/dports/lang/ghc/ghc-8.10.7/libraries/haskeline/System/Console/Haskeline/
H A DHistory.hs38 data History = History {histLines :: Seq String, function
47 show = show . histLines
54 historyLines = toList . histLines
65 return History {histLines = Seq.fromList $ lines contents,
78 stifleHistory a@(Just n) hist = History {histLines = stifleFnc (histLines hist),
81 stifleFnc = if n > Seq.length (histLines hist)
86 addHistory s h = h {histLines = maybeDropLast (stifleAmt h) (s <| (histLines h))}
100 addHistoryUnlessConsecutiveDupe h hs = case viewl (histLines hs) of
107 addHistoryRemovingAllDupes h hs = addHistory h hs {histLines = filteredHS}
109 filteredHS = Seq.fromList $ filter (/= h) $ toList $ histLines hs
/dports/lang/elm/compiler-0.19.1/_cabal_deps/haskeline-0.8.0.0/System/Console/Haskeline/
H A DHistory.hs38 data History = History {histLines :: Seq String, function
47 show = show . histLines
54 historyLines = toList . histLines
65 return History {histLines = Seq.fromList $ lines contents,
78 stifleHistory a@(Just n) hist = History {histLines = stifleFnc (histLines hist),
81 stifleFnc = if n > Seq.length (histLines hist)
86 addHistory s h = h {histLines = maybeDropLast (stifleAmt h) (s <| (histLines h))}
100 addHistoryUnlessConsecutiveDupe h hs = case viewl (histLines hs) of
107 addHistoryRemovingAllDupes h hs = addHistory h hs {histLines = filteredHS}
109 filteredHS = Seq.fromList $ filter (/= h) $ toList $ histLines hs
/dports/lang/purescript/purescript-0.14.5/_cabal_deps/haskeline-0.8.2/System/Console/Haskeline/
H A DHistory.hs38 data History = History {histLines :: Seq String, function
47 show = show . histLines
54 historyLines = toList . histLines
65 return History {histLines = Seq.fromList $ lines contents,
78 stifleHistory a@(Just n) hist = History {histLines = stifleFnc (histLines hist),
81 stifleFnc = if n > Seq.length (histLines hist)
86 addHistory s h = h {histLines = maybeDropLast (stifleAmt h) (s <| (histLines h))}
100 addHistoryUnlessConsecutiveDupe h hs = case viewl (histLines hs) of
107 addHistoryRemovingAllDupes h hs = addHistory h hs {histLines = filteredHS}
109 filteredHS = Seq.fromList $ filter (/= h) $ toList $ histLines hs