SHARE
TWEET

Untitled

a guest Jun 25th, 2019 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. createRow names cols =
  2.     case cols of
  3.         [] -> text ""
  4.         _ ->
  5.             let
  6.                 c0 = (List.head cols)
  7.                 c = (List.drop 1 cols)
  8.                 n0 = (List.head names)
  9.                 n = (List.drop 1 names)
  10.             in
  11.                 td [] [text <| toString <| c0]
  12.                 , createRow n c
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top