From e7586fab61d1a8db7996e77febb9dae242528254 Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Wed, 24 Jan 2024 19:07:35 +0200
Subject: [PATCH] =?UTF-8?q?M=C3=A4=C3=A4rit=C3=A4=20tarvittavat=20Haskell-?=
 =?UTF-8?q?laajennokset=20eksplisiittisesti?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Laskutin/CSV.hs    | 3 ++-
 src/Laskutin/Email.hs  | 2 ++
 src/Laskutin/Status.hs | 1 +
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Laskutin/CSV.hs b/src/Laskutin/CSV.hs
index d968f90..d807bab 100644
--- a/src/Laskutin/CSV.hs
+++ b/src/Laskutin/CSV.hs
@@ -1,6 +1,7 @@
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE DisambiguateRecordFields #-}
 {-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Laskutin.CSV (CsvInvoice(..), CsvTransaction(..), TransactionMessage(..), csvInvoiceSum, csvInvoiceRowSum, csvIsPaid, parseCsvFile, invoiceRowFromCsv) where
 
diff --git a/src/Laskutin/Email.hs b/src/Laskutin/Email.hs
index 09782b7..9d9fcaf 100644
--- a/src/Laskutin/Email.hs
+++ b/src/Laskutin/Email.hs
@@ -1,4 +1,6 @@
+{-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TupleSections #-}
 
 module Laskutin.Email where
 
diff --git a/src/Laskutin/Status.hs b/src/Laskutin/Status.hs
index b8849e8..d6e2f8f 100644
--- a/src/Laskutin/Status.hs
+++ b/src/Laskutin/Status.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}