typed-spreadsheet-1.0.1: exec/Text.hs

{-# LANGUAGE OverloadedStrings #-}

import Control.Applicative
import Typed.Spreadsheet

main :: IO ()
main = textUI "Example program" logic
  where
    logic = combine <$> checkBox   "a"
                    <*> spinButton "b" 1
                    <*> spinButton "c" 0.1
                    <*> entry      "d"

    combine a b c d = display (a, b + c, d)