divipp/ActiveHs — comment on commit 61e62cd38108659efbe25466917b18c06f9fd3ab
File:  line 0
By divipp:

Hey,
instead of
drop ((length l) - 2) l == "--"
safer to use
take 3 $ dropWhile (==' ') $ reverse l == "-- "
:)