You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
694 B
17 lines
694 B
diff --git a/Data/ASN1/Parse.hs b/Data/ASN1/Parse.hs
|
|
index eeea2be..83bc80e 100644
|
|
--- a/Data/ASN1/Parse.hs
|
|
+++ b/Data/ASN1/Parse.hs
|
|
@@ -24 +24 @@ import Control.Monad.Error
|
|
-import Control.Applicative ((<$>))
|
|
+import Control.Applicative ((<$>), Applicative)
|
|
@@ -25,7 +25,7 @@ import Control.Applicative ((<$>))
|
|
|
|
-- | Parse ASN1 Monad
|
|
newtype ParseASN1 a = P { runP :: ErrorT String (State [ASN1]) a }
|
|
- deriving (Functor, Monad, MonadError String)
|
|
+ deriving (Functor, Applicative, Monad, MonadError String)
|
|
|
|
-- | run the parse monad over a stream and returns the result and the remaining ASN1 Stream.
|
|
runParseASN1State :: ParseASN1 a -> [ASN1] -> Either String (a,[ASN1])
|