commit
06c0a14b0e
|
@ -79,8 +79,8 @@ transformAlts briDoc =
|
||||||
$ rec
|
$ rec
|
||||||
$ briDoc
|
$ briDoc
|
||||||
where
|
where
|
||||||
-- this funtion is exponential by nature and cannot be improved in any
|
-- this function is exponential by nature and cannot be improved in any
|
||||||
-- way i can think of, and if tried. (stupid StableNames.)
|
-- way i can think of, and i've tried. (stupid StableNames.)
|
||||||
-- transWrap :: BriDoc -> BriDocNumbered
|
-- transWrap :: BriDoc -> BriDocNumbered
|
||||||
-- transWrap brDc = flip StateS.evalState (1::Int)
|
-- transWrap brDc = flip StateS.evalState (1::Int)
|
||||||
-- $ Memo.startEvalMemoT
|
-- $ Memo.startEvalMemoT
|
||||||
|
@ -593,7 +593,7 @@ getSpacings limit bridoc = preFilterLimit <$> rec bridoc
|
||||||
-- Nonetheless I think the order of spacings should
|
-- Nonetheless I think the order of spacings should
|
||||||
-- be preserved as it provides a deterministic
|
-- be preserved as it provides a deterministic
|
||||||
-- choice for which spacings to prune (which is
|
-- choice for which spacings to prune (which is
|
||||||
-- an argument against simly using a Set).
|
-- an argument against simply using a Set).
|
||||||
-- I have also considered `fmap head . group` which
|
-- I have also considered `fmap head . group` which
|
||||||
-- seems to work similarly well for common cases
|
-- seems to work similarly well for common cases
|
||||||
-- and which might behave even better when it comes
|
-- and which might behave even better when it comes
|
||||||
|
|
Loading…
Reference in New Issue