fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2019-10-03 19:46:13 +02:00
parent 6d8743fe15
commit c18299028c
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Csv.hs
View File

@ -42,7 +42,7 @@ decodeCsv :: (MonadThrow m, FromNamedRecord csv, MonadLogger m) => ConduitT Byte
decodeCsv = decodeCsv' fromNamedCsv decodeCsv = decodeCsv' fromNamedCsv
decodeCsvPositional :: (MonadThrow m, FromRecord csv, MonadLogger m) => HasHeader -> ConduitT ByteString csv m () 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' :: (MonadThrow m, MonadLogger m) => (forall m'. Monad m' => DecodeOptions -> ConduitT ByteString csv (ExceptT CsvParseError m') ()) -> ConduitT ByteString csv m ()
decodeCsv' fromCsv' = transPipe throwExceptT $ do decodeCsv' fromCsv' = transPipe throwExceptT $ do

2
src/Model/Types/Allocation.hs
View File

@ -12,6 +12,8 @@ import qualified Data.Vector as Vector
import qualified Data.Map.Strict as Map import qualified Data.Map.Strict as Map
{-# ANN module ("HLint: ignore Use newtype instead of data"::String) #-}
data AllocationPriority data AllocationPriority
= AllocationPriorityNumeric { allocationPriorities :: Vector Integer } = AllocationPriorityNumeric { allocationPriorities :: Vector Integer }