1 {-# LANGUAGE NoImplicitPrelude #-}
3 module Parsers.Types where
5 import Gargantext.Prelude
10 import Text.Parsec.Error (ParseError(..), Message(..), newErrorMessage)
12 instance Arbitrary Message where
14 msgContent <- arbitrary
15 oneof $ return <$> [SysUnExpect msgContent
21 instance Arbitrary SourcePos where
26 return $ newPos sn l c
28 instance Arbitrary ParseError where
32 return $ newErrorMessage msg sp