File: newlines-between-methods-out.hs

package info (click to toggle)
haskell-ormolu 0.1.2.0-1
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 3,392 kB
  • sloc: haskell: 11,134; makefile: 7
file content (18 lines) | stat: -rw-r--r-- 493 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
instance Num a => Num (Diff a) where
  D u dudx + D v dvdx = D (u + v) (dudx + dvdx)
  D u dudx - D v dvdx = D (u - v) (dudx - dvdx)
  D u dudx * D v dvdx = D (u * v) (u * dvdx + v * dudx)

  -- Comment before definition
  negate (D u dudx) = D (- u) (- dudx)
  negate (Z u dudx) = undefined

  -- Comment after definition

  -- Separator

  abs (D u _) = D (abs u) (signum u)
  signum (D u _) = D (signum u) 0

  -- Comment between unrelated definitions
  fromInteger n = D (fromInteger n) 0