{-# LANGUAGE OverloadedStrings #-}

import Data.Monoid
import Typed.Spreadsheet

celsius = spinButton "Celsius" 0.1

convert c = "Fahrenheit: " <> display (c * 9 / 5 + 32)

main = textUI "Celsius to Fahrenheit converter" (fmap convert celsius)