-contDispoP = do dispoType ← A.toCIAscii <$> token
- params ← many paramP
- return $ ContDispo dispoType params
- where
- paramP ∷ Parser (CIAscii, Ascii)
- paramP = do skipMany lws
- _ ← char ';'
- skipMany lws
- name ← A.toCIAscii <$> token
- _ ← char '='
- value ← token <|> quotedStr
- return (name, value)
+{-# INLINEABLE contDispoP #-}
+contDispoP
+ = do dispoType ← A.toCIAscii <$> token
+ params ← paramsP
+ return $ ContDispo dispoType params
+ <?>
+ "contDispoP"