diff options
| author | Camil Staps | 2017-07-30 00:51:48 +0200 |
|---|---|---|
| committer | Camil Staps | 2017-07-30 00:54:02 +0200 |
| commit | 05a47988d9466b827f7dbab44bab33a67228efe9 (patch) | |
| tree | c9f2ce96dec969f1d756e25357dbbe2c79dfbad2 /Sil/Util/Printer.icl | |
| parent | Cleanup; add <> < > <= >= (diff) | |
Start with positional errors (see #5)
Diffstat (limited to 'Sil/Util/Printer.icl')
| -rw-r--r-- | Sil/Util/Printer.icl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Sil/Util/Printer.icl b/Sil/Util/Printer.icl index 979e478..2a028b6 100644 --- a/Sil/Util/Printer.icl +++ b/Sil/Util/Printer.icl @@ -16,6 +16,7 @@ import Text import Sil.Parse import Sil.Syntax import Sil.Types +import Sil.Util.Parser :: PrintState = { indent :: Int @@ -33,6 +34,9 @@ instance toString PrintState where toString st = {'\t' \\ _ <- [1..st.indent]} instance PrettyPrinter String where print _ s = s +instance PrettyPrinter (Positioned a) | PrettyPrinter a +where print st p = print st $ fromPositioned p + instance PrettyPrinter [Token] where print st [] = "" |