Searched refs:histLines (Results 1 – 3 of 3) sorted by relevance
38 data History = History {histLines :: Seq String, function47 show = show . histLines54 historyLines = toList . histLines65 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) of107 addHistoryRemovingAllDupes h hs = addHistory h hs {histLines = filteredHS}109 filteredHS = Seq.fromList $ filter (/= h) $ toList $ histLines hs