小编Joh*_*ohn的帖子

我正在尝试使用这样的数据解析 csv 文件。我可以将日期解析为字符串，但无法以日格式获取它们。我终于得到了这个来进行类型检查，但现在我有一个解析错误，希望得到一些帮助。

2001/12/18, 281
2001/12/19, 280
2001/12/20, 276
2001/12/21, 278

到目前为止，这是我的代码。

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}

import qualified Data.ByteString.Lazy as BL
import Data.Csv
import qualified Data.Vector as V
import Data.Time
import Generics.Deriving

datadir="/home/john/.stack/test/data/"  

data Sample = Sample { dateMeasure :: !Data.Time.Day 
                 , valueMeasure :: !Int 
                 } deriving (Generic, Show)   

instance FromRecord Sample 

instance FromField Data.Time.Day where
    parseField = parseTimeM True defaultTimeLocale "%Y/%m/%d" . show 

printRecord :: Sample -> IO ()
printRecord r  = putStrLn $  show …