Skip to content

Instantly share code, notes, and snippets.

@naoto-ogawa

naoto-ogawa/infinit_loop_attopersec.hs

Created May 1, 2018 11:46
Show Gist options
  • Save naoto-ogawa/1979d303a8e397bfcd227f2c100bc02b to your computer and use it in GitHub Desktop.
Save naoto-ogawa/1979d303a8e397bfcd227f2c100bc02b to your computer and use it in GitHub Desktop.
Download ZIP
Infinite loop on Attopersec
Raw
infinit_loop_attopersec.hs
:set -XOverloadedStrings
import Control.Applicative
import Data.Attoparsec.Text
import Data.Attoparsec.Combinator
let foo = manyTill anyChar (lookAhead $ (char '@'))
parseOnly (many foo) "@"
^CInterrupted.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment