File: UnicodeSubscript.hs.prettyprinter.golden

package info (click to toggle)
haskell-src-exts 1.17.1-4
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 52,024 kB
  • ctags: 4
  • sloc: haskell: 28,382; makefile: 12
file content (11 lines) | stat: -rw-r--r-- 289 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
{-# LANGUAGE UnicodeSyntax #-}
module Main where

data Point = Point{pointX, pointY :: Double, name :: String}
           deriving Show

distance :: Point -> Point -> Double
distance x y
  = let t = (pointX x - pointX y) ^ 2
        t = (pointY x - pointY y) ^ 2
      in sqrt $ t + t