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

…s: …
ekmett · Mar 12, 2013 · 1c8a09e · 1c8a09e
1 parent 34e0a28
commit 1c8a09e
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/.travis.yml b/.travis.yml
@@ -13,6 +13,7 @@ install:
 
 script:
   - $script && hlint src --cpp-define HLINT
+  - scripts/stats
 
 notifications:
   irc:

diff --git a/scripts/stats b/scripts/stats
@@ -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"
+