Fix build failure (#65)

kadena-io · Aug 17, 2021 · 80d86ec · 80d86ec
1 parent 304618a
commit 80d86ec
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/exec/Chainweb/Coins.hs b/exec/Chainweb/Coins.hs
@@ -54,7 +54,8 @@ newtype CsvTime = CsvTime { _csvTime :: UTCTime }
 instance CSV.FromField CsvTime where
     parseField f = either fail pure ev
       where
-        ev = fmap CsvTime . parseTimeM True defaultTimeLocale "%FT%TZ" =<<
+        ev = maybe (Left $ "Error parsing CsvTime " <> show f) (Right . CsvTime) .
+          parseTimeM True defaultTimeLocale "%FT%TZ" =<<
           bimap show T.unpack (decodeUtf8' f)
 
 newtype MinerRewards = MinerRewards