haskell-src-exts-1.24.0: tests/examples/UnicodeSubscript.hs.exactprinter.golden

{-# 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‚