@@ -28,7 +28,8 @@ module Data.Attoparsec.Combinator
2828 , many
2929 ) where
3030
31−import Control.Applicative (Alternative(..), Applicative(..), liftA2, (*>), (<$>))
31+import Control.Applicative (Alternative, Applicative(..), empty, liftA2,
32+ (<|>), (*>), (<$>))
3233
3334-- | @choice ps@ tries to apply the actions in the list @ps@ in order,
3435-- until one of them succeeds. Returns the value of the succeeding