From c18299028c2981ca166a6083eea1c2625d4095fc Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 3 Oct 2019 19:46:13 +0200 Subject: [PATCH] refactor: hlint --- src/Handler/Utils/Csv.hs | 2 +- src/Model/Types/Allocation.hs | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) 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 }