haskell-src-exts-1.24.0: tests/examples/UnicodeSubscript.hs.prettyprinter.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‚