diff options
author | Yuchen Pei <hi@ypei.me> | 2022-05-30 16:22:44 +1000 |
---|---|---|
committer | Yuchen Pei <hi@ypei.me> | 2022-05-30 16:22:44 +1000 |
commit | c96f8f6c820d43a55388f0307f3a6de9471ebb10 (patch) | |
tree | d28b4a77c03a4bb50b9ee0ea5d87074ace254e60 /src/F2Md/Export.hs | |
parent | 231b58693759be1174a3866e469f170387c22376 (diff) |
linting
Diffstat (limited to 'src/F2Md/Export.hs')
-rw-r--r-- | src/F2Md/Export.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/F2Md/Export.hs b/src/F2Md/Export.hs index b06155c..d3ed45a 100644 --- a/src/F2Md/Export.hs +++ b/src/F2Md/Export.hs @@ -35,7 +35,7 @@ import System.FilePath formatMessage :: Message -> Text formatMessage (Message from subject date messageId body _) = - "MIME-Version: 1.0\n" <> "Date: " <> (T.pack $ show date) <> "\nSubject: " <> subject <> + "MIME-Version: 1.0\n" <> "Date: " <> T.pack (show date) <> "\nSubject: " <> subject <> "\nFrom: " <> from <> "\nMessage-ID: " <> messageId <> "\nContent-Type: text/html" <> "\n\n" <> body |