[] (HsUnGuardedRhs extMapExp) []]
]
extMapExp = HsApp (HsVar (Qual (Module "M") (HsIdent "fromList"))) (HsList records)
- comment = "{- !!! WARNING !!!\n"
- ++ " This file is automatically generated.\n"
- ++ " DO NOT EDIT BY HAND OR YOU WILL REGRET -}\n\n"
+ comment = "{- !!! WARNING !!!\n"
+ ⧺ " This file is automatically generated.\n"
+ ⧺ " DO NOT EDIT BY HAND OR YOU WILL REGRET -}\n\n"
in
- comment ++ prettyPrint hsModule ++ "\n"
+ comment ⧺ prettyPrint hsModule ⧺ "\n"
where
records ∷ [HsExp]
records = map record $ M.assocs extMap
= HsApp (HsVar (UnQual (HsIdent "parseMIMEType")))
(HsParen
(HsApp (HsVar (Qual (Module "A") (HsIdent "unsafeFromString")))
- (HsLit (HsString $ A.toString $ printMIMEType mt))))
+ (HsLit (HsString $ mimeToString mt))))
+
+ mimeToString ∷ MIMEType → String
+ mimeToString = A.toString ∘ A.fromAsciiBuilder ∘ printMIMEType