Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
forM_ (zip [0, 2..] (makeForm someUser)) $ \(idx, label_name) -> do
createLabel label_name >>= attach idx
Entry.entryNew >>= attach (idx+1)
where
attach idx x = Grid.gridAttach grid x 0 idx 1 1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.