Permalink
Browse files

scripts/stats: unsafeCoerces: … | doctests: … | operators: … | module…

…s: …
  • Loading branch information...
1 parent 34e0a28 commit 1c8a09e360395892df05a255292c1ef2da6e749d @liyang liyang committed Mar 12, 2013
Showing with 13 additions and 0 deletions.
  1. +1 −0 .travis.yml
  2. +12 −0 scripts/stats
View
@@ -13,6 +13,7 @@ install:
script:
- $script && hlint src --cpp-define HLINT
+ - scripts/stats
notifications:
irc:
View
@@ -0,0 +1,12 @@
+#! /bin/bash
+
+g() { git grep --basic-regexp "$@" src | wc -l ; }
+cd "$(git rev-parse --show-toplevel)"
+
+unsafe="$(g '\<unsafeCoerce\>')"
+doc="$(g -e '--\s\+>>>\s\+[^:]' --and --not -e '--\s\+>>>\s\+\(import\|let\)')"
+ops="$(g '^(.\+)\s*::')"
+mod="$(find src -name '*.hs' | wc -l)"
+
+echo "unsafeCoerces: $unsafe | doctests: $doc | operators: $ops | modules: $mod"
+

0 comments on commit 1c8a09e

Please sign in to comment.