Include Scanned field in CSV export

zfoh · Jun 19, 2019 · 38d2374 · 38d2374
1 parent 2f28e01
commit 38d2374
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Zureg/Model/Csv.hs b/lib/Zureg/Model/Csv.hs
@@ -23,6 +23,7 @@ instance ToNamedRecord Registrant where
         =  HM.unions [ namedRecord [ "UUID" .= rUuid ]
                      , toNamedRecord rState
                      , toNamedRecord rInfo
+                     , namedRecord [ "Scanned" .= rScanned ]
                      ]
 
 instance ToNamedRecord RegisterState where
@@ -107,6 +108,7 @@ itemHeader :: Header
 itemHeader = header
                 [ "UUID"
                 , "State"
+                , "Scanned"
                 , "Name"
                 , "Name on Badge"
                 , "Email"