blob: 8bf958454bef38fb92e607bcb42eb29151ec60d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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])
|
GitWeb
