diff --git a/src/Handler/Utils/Csv.hs b/src/Handler/Utils/Csv.hs
index 00ae7af49..b13e2c0e3 100644
--- a/src/Handler/Utils/Csv.hs
+++ b/src/Handler/Utils/Csv.hs
@@ -42,7 +42,7 @@ decodeCsv :: (MonadThrow m, FromNamedRecord csv, MonadLogger m) => ConduitT Byte
 decodeCsv = decodeCsv' fromNamedCsv
 
 decodeCsvPositional :: (MonadThrow m, FromRecord csv, MonadLogger m) => HasHeader -> ConduitT ByteString csv m ()
-decodeCsvPositional hdr = decodeCsv' (\opts -> fromCsv opts hdr)
+decodeCsvPositional hdr = decodeCsv' (`fromCsv` hdr)
 
 decodeCsv' :: (MonadThrow m, MonadLogger m) => (forall m'. Monad m' => DecodeOptions -> ConduitT ByteString csv (ExceptT CsvParseError m') ()) -> ConduitT ByteString csv m ()
 decodeCsv' fromCsv' = transPipe throwExceptT $ do
diff --git a/src/Model/Types/Allocation.hs b/src/Model/Types/Allocation.hs
index 26fbaa6ad..3ee8d6299 100644
--- a/src/Model/Types/Allocation.hs
+++ b/src/Model/Types/Allocation.hs
@@ -12,6 +12,8 @@ import qualified Data.Vector as Vector
 
 import qualified Data.Map.Strict as Map
 
+{-# ANN module ("HLint: ignore Use newtype instead of data"::String) #-}
+
 
 data AllocationPriority
   = AllocationPriorityNumeric { allocationPriorities :: Vector Integer }