summaryrefslogtreecommitdiff
path: root/compiler/utils/Pretty.hs
diff options
context:
space:
mode:
authorGabor Greif <ggreif@gmail.com>2017-01-18 17:07:40 +0100
committerGabor Greif <ggreif@gmail.com>2017-01-18 17:46:45 +0100
commit70472bf2d862f976790f73e9dc7a0f3f7519ae1d (patch)
tree2d507cd90c936e32fb9ed73b8dfad27ba5762474 /compiler/utils/Pretty.hs
parente324e317caab06fda232636c32e8a60d9e888a9c (diff)
downloadhaskell-70472bf2d862f976790f73e9dc7a0f3f7519ae1d.tar.gz
Spelling fixes in comments [ci skip]
Diffstat (limited to 'compiler/utils/Pretty.hs')
-rw-r--r--compiler/utils/Pretty.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Pretty.hs b/compiler/utils/Pretty.hs
index 5b025d5c05..a4d67f03a0 100644
--- a/compiler/utils/Pretty.hs
+++ b/compiler/utils/Pretty.hs
@@ -566,7 +566,7 @@ above (Above p g1 q1) g2 q2 = above p g1 (above q1 g2 q2)
above p@(Beside{}) g q = aboveNest (reduceDoc p) g 0 (reduceDoc q)
above p g q = aboveNest p g 0 (reduceDoc q)
--- Specfication: aboveNest p g k q = p $g$ (nest k q)
+-- Specification: aboveNest p g k q = p $g$ (nest k q)
aboveNest :: RDoc -> Bool -> Int -> RDoc -> RDoc
aboveNest _ _ k _ | k `seq` False = undefined
aboveNest NoDoc _ _ _ = NoDoc