Permalink
Browse files

Eliminate all extraneous trailing whitespace.

Done via:

  $ for i in `git ls-tree HEAD --full-tree --name-only -r`; do emacs -q \
  -batch $i -no-site-file --eval "(delete-trailing-whitespace)" --eval \
  "(save-buffer)"; done

Signed-off-by: Austin Seipp <mad.one@gmail.com>
  • Loading branch information...
thoughtpolice committed Jan 8, 2013
1 parent 7c19dbc commit 42b3ccfb9cf4f02bd90598a849bcad51d6290a8e
Showing with 35 additions and 35 deletions.
  1. +1 −1 examples/Turtle.hs
  2. +32 −32 examples/bf-examples/triangle.bf
  3. +1 −1 src/Control/Exception/Lens.hs
  4. +1 −1 src/Numeric/Lens.hs
View
@@ -2,7 +2,7 @@
{-# LANGUAGE DeriveDataTypeable #-}
-- | A simple Turtle-graphics demonstration for modeling the location of a turtle.
--
--- This is based on the code presented by Seth Tisue at the Boston Area Scala
+-- This is based on the code presented by Seth Tisue at the Boston Area Scala
-- Enthusiasts meeting during his lens talk.
--
-- Usage:
@@ -1,33 +1,33 @@
[ This program prints Sierpinski triangle on 80-column display. ]
- >
- + +
- + +
- [ < + +
- + +
- + + + +
- > - ] >
- + + + + + + + +
- [ >
- + + + +
- < - ] >
- > + + > > > + >
- > > + <
- < < < < < < < <
- < [ - [ - > + <
- ] > [ - < + > > > . < < ] > > >
- [ [
- - > + +
- + + + +
- + + [ > + + + +
- < - ] >
- . < < [ - > + <
- ] + > [ - > + +
- + + + + + + + + < < + > ] > . [
- - ] > ]
- ] + < < < [ - [
- - > + < ] + > [
- - < + > > > - [ - > + < ] + + >
- [ - < - > ] < <
- < ] < < < < ] + + + + + + + + +
- + . + + + . [ - ] < ] + + + + +
- * * * * * M a d e * B y : * N Y Y R I K K I * 2 0 0 2 * * * * *
+ >
+ + +
+ + +
+ [ < + +
+ + +
+ + + + +
+ > - ] >
+ + + + + + + + +
+ [ >
+ + + + +
+ < - ] >
+ > + + > > > + >
+ > > + <
+ < < < < < < < <
+ < [ - [ - > + <
+ ] > [ - < + > > > . < < ] > > >
+ [ [
+ - > + +
+ + + + +
+ + + [ > + + + +
+ < - ] >
+ . < < [ - > + <
+ ] + > [ - > + +
+ + + + + + + + + < < + > ] > . [
+ - ] > ]
+ ] + < < < [ - [
+ - > + < ] + > [
+ - < + > > > - [ - > + < ] + + >
+ [ - < - > ] < <
+ < ] < < < < ] + + + + + + + + +
+ + . + + + . [ - ] < ] + + + + +
+ * * * * * M a d e * B y : * N Y Y R I K K I * 2 0 0 2 * * * * *
@@ -214,7 +214,7 @@ throwing l = reviews l throw
--
-- @'throwingIO' l ≡ 'reviews' l 'throwIO'@
--
--- Although 'throwingIO' has a type that is a specialization of the type of
+-- Although 'throwingIO' has a type that is a specialization of the type of
-- 'throwing', the two functions are subtly different:
--
-- @
View
@@ -55,7 +55,7 @@ digitToIntMay c
| isAsciiLower c = Just (ord c - ord 'a' + 10)
| isAsciiUpper c = Just (ord c - ord 'A' + 10)
| otherwise = Nothing
-
+
-- | Select digits that fall into the given base
isDigit' :: Integral a => a -> Char -> Bool
isDigit' b c = case digitToIntMay c of

0 comments on commit 42b3ccf

Please sign in to comment.