Get rid of the ErrorFancy type to avoid the need for (ugh) orphans
Getty Ritter
7 years ago
| 1 | {-# LANGUAGE FlexibleInstances #-} | |
| 2 | 1 | {-| |
| 3 | 2 | Module : Data.Ini.Config.Raw |
| 4 | 3 | Copyright : (c) Getty Ritter, 2017 |
| 40 | 39 | import Text.Megaparsec |
| 41 | 40 | import Text.Megaparsec.Char |
| 42 | 41 | |
| 43 | type Parser = Parsec (ErrorFancy Void) Text | |
| 44 | ||
| 45 | instance ShowErrorComponent (ErrorFancy Void) where | |
| 46 | showErrorComponent = show | |
| 42 | type Parser = Parsec Void Text | |
| 47 | 43 | |
| 48 | 44 | -- | The 'NormalizedText' type is an abstract representation of text |
| 49 | 45 | -- which has had leading and trailing whitespace removed and been |