check :: Int -> EvidencePiece -> Bool
check id ep = let expected = M.lookup id goldenMap in
                          case expected of 
                            Nothing -> error (noGolden ++ show id)
                            Just goldEp -> goldEp == ep 
check :: Int -> EvidencePiece -> Bool
check id ep = let expected = M.lookup id goldenMap in
                          case expected of 
                            Nothing -> error (noGolden ++ show id)
                            Just goldEp -> goldEp == ep 
check id ep = let expected = M.lookup id goldenMap in
                          case expected of 
                            Nothing -> error (noGolden ++ show id)
                            Just goldEp -> goldEp == ep 