dot syntax

master
karchnu 2016-01-08 04:36:57 +01:00
parent a92640a487
commit 4709700840
1 changed files with 1 additions and 1 deletions

View File

@ -12,7 +12,7 @@ completeMatrix m = map (\e -> e ++ [""| _ <- [length e..nb]]) m
where nb = maximum $ map length m
column :: [[String]] -> [[String]]
column x = L.transpose $ formatLines $ L.transpose $ completeMatrix x
column = (L.transpose . formatLines . L.transpose . completeMatrix)
main = do
content <- getContents