Skip to content

Instantly share code, notes, and snippets.

@akhileshs

akhileshs/celsius-farenheit.hs

Created February 8, 2016 10:16
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save akhileshs/4f2acd6cdc6d75e0aff3 to your computer and use it in GitHub Desktop.
Save akhileshs/4f2acd6cdc6d75e0aff3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
celsius-farenheit.hs
{-# 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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment