A bit more cleaning up imports
Getty Ritter
10 years ago
| 12 | 12 |
|
| 13 | 13 |
import Control.Applicative ((<$>))
|
| 14 | 14 |
import Data.Char (isAlphaNum)
|
| 15 | |
import Text.Parsec -- (Parser, takeWhile1)
|
| 15 |
import Text.Parsec (many1, satisfy)
|
| 16 | 16 |
import Data.Text (Text, pack)
|
| 17 | 17 |
|
| 18 | |
import Data.SCargot.Repr.Basic
|
| 19 | |
import Data.SCargot.General
|
| 18 |
import Data.SCargot.Repr.Basic (SExpr)
|
| 19 |
import Data.SCargot.General ( SExprSpec
|
| 20 |
, mkSpec
|
| 21 |
, asRich
|
| 22 |
, asWellFormed
|
| 23 |
, addReader
|
| 24 |
, setComment
|
| 25 |
, withQuote
|
| 26 |
)
|
| 20 | 27 |
import Data.SCargot.Comments (withLispComments)
|
| 21 | 28 |
|
| 22 | 29 |
isAtomChar :: Char -> Bool
|
| 26 | 26 |
|
| 27 | 27 |
import Control.Monad (void)
|
| 28 | 28 |
import Data.Text (Text)
|
| 29 | |
import Text.Parsec |
| 29 |
import Text.Parsec ( (<|>)
|
| 30 |
, anyChar
|
| 31 |
, manyTill
|
| 32 |
, noneOf
|
| 33 |
, skipMany
|
| 34 |
, string
|
| 35 |
)
|
| 30 | 36 |
|
| 31 | |
import Prelude hiding (takeWhile)
|
| 32 | |
|
| 33 | |
import Data.SCargot.General |
| 37 |
import Data.SCargot.General ( Comment
|
| 38 |
, SExprSpec
|
| 39 |
, setComment
|
| 40 |
)
|
| 34 | 41 |
|
| 35 | 42 |
-- | Given a string, produce a comment parser that matches that
|
| 36 | 43 |
-- initial string and ignores everything until the end of the
|
| 31 | 31 |
import Data.String (IsString)
|
| 32 | 32 |
import Data.Text (Text, pack, unpack)
|
| 33 | 33 |
import qualified Data.Text as T
|
| 34 | |
import Text.Parsec |
| 34 |
import Text.Parsec ( (<|>)
|
| 35 |
, char
|
| 36 |
, eof
|
| 37 |
, lookAhead
|
| 38 |
, many1
|
| 39 |
, runParser
|
| 40 |
, skipMany
|
| 41 |
)
|
| 35 | 42 |
import Text.Parsec.Char (anyChar, space)
|
| 36 | |
import Text.Parsec.Text
|
| 37 | |
|
| 38 | |
import Prelude hiding (takeWhile)
|
| 43 |
import Text.Parsec.Text (Parser)
|
| 39 | 44 |
|
| 40 | 45 |
import Data.SCargot.Repr
|
| 41 | 46 |
|