Merge remote-tracking branch 'begriffs/v3' into v3

2015-10-24 21:25:01 +03:00
parent e40dcb1324 a624eb08ce
commit cd3a149aa4
5 changed files with 35 additions and 25 deletions
@@ -399,7 +399,7 @@ convertJson v = (,) <$> (header <$> normalized) <*> (vals <$> normalized)
    normalized = groupByKey =<< normalizeValue v

    vals :: [(Text, [Value])] -> [[Value]]
-    vals a = transpose $ map snd a
+    vals = transpose . map snd

    header :: [(Text, [Value])] -> [Text]
    header = map fst