X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMIMEType%2FGuess.hs;h=d94711ac624cdfa9878243b55f46b1dbca61b223;hb=50805329b976eb90092504d4d181269f151fbb82;hp=d6c4958db21f563bbdc6bd07af3cb02d809f8ffc;hpb=0b39e041a86e883b60096fe08f202798cc69f4eb;p=Lucu.git diff --git a/Network/HTTP/Lucu/MIMEType/Guess.hs b/Network/HTTP/Lucu/MIMEType/Guess.hs index d6c4958..d94711a 100644 --- a/Network/HTTP/Lucu/MIMEType/Guess.hs +++ b/Network/HTTP/Lucu/MIMEType/Guess.hs @@ -102,9 +102,9 @@ serializeExtMap extMap moduleName variableName [] (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" where