Render multi-line strings more prettily in Template Haskell
Kathleen Fisher writes: In the quasi-quoter, would it be hard to have the code that reports an error print the quoted string using putStrLn instead of show? For example, I get error messages like the following:
Examples/Simple.hs:1:1:
Exception when trying to run compile-time code:
user error ("Examples/Simple.hs" (line 73, column 38):
unexpected "\""
expecting identifier or "[")
Code: Language.Haskell.TH.Quote.quoteDec
forest
" type Hosts_f = File Hosts_t -- Hosts_t is expected to be a PADS type \n\n type Scores_d = Directory { scores :: File Ptext }\n\n type Simple_d (file_name :: String ) = Directory \n { local is \"local.txt\" :: File Hosts_t where <| (get_owner local_md) == \"kfisher\" | \n , remote is <|file_name ++ \".txt\"|> :: Hosts_f where <| (get_modes remote_md) == \"-rw-r--r--\" |>\n , nested is <|getHost local|> :: Scores_d where <| (get_group nested_md) == (get_owner local_md) |> \n , mylink_sym is \"mylink\" :: SymLink where <| mylink_sym == \"quantum\" |>\n , mylink :: Scores_d\n-- , mylink :: SymLink Scores_d where <| sym_link mylink == \"quantum\" |>\n , airef is ai_file :: File AI_t\n } "It'd be a lot easier to find the syntax error if all those '\n's were printed as newlines.
Trac metadata
| Trac field | Value |
|---|---|
| Version | 6.12.3 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | Unresolved |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture |