diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-05-28 00:48:52 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-05-28 00:48:52 +1000 |
| commit | 20231d809b57c3050fb1cd812ea4c6e66cdaf6fb (patch) | |
| tree | f395be8b27b4ff067ad1394fd39d01452433aef1 /src/F2Md/Export.hs | |
| parent | caf354c7e5bcb5142d8b4358824d22d3de122f34 (diff) | |
time and map updates
Diffstat (limited to 'src/F2Md/Export.hs')
| -rw-r--r-- | src/F2Md/Export.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/F2Md/Export.hs b/src/F2Md/Export.hs index 284ab22..83da783 100644 --- a/src/F2Md/Export.hs +++ b/src/F2Md/Export.hs @@ -14,8 +14,8 @@ import System.FilePath formatMessage :: Message -> Text -formatMessage (Message from subject date messageId body) = - "MIME-Version: 1.0\n" <> "Date: " <> date <> "\nSubject: " <> subject <> +formatMessage (Message from subject date messageId body _) = + "MIME-Version: 1.0\n" <> "Date: " <> (T.pack $ show date) <> "\nSubject: " <> subject <> "\nFrom: " <> from <> "\nMessage-ID: " <> messageId <> "\nContent-Type: text/html" <> "\n\n" <> body |