Permalink
Browse files

Start Scion.Utils module.

  • Loading branch information...
nominolo committed Oct 20, 2008
1 parent 951a473 commit 2440666a867a121813f480cc58796d2b0d7c7d19
Showing with 7 additions and 0 deletions.
  1. +1 −0 scion.cabal
  2. +6 −0 src/Scion/Utils.hs
View
@@ -23,6 +23,7 @@ library
exposed-modules:
Scion.Types,
Scion.Inspect,
+ Scion.Utils,
Scion
View
@@ -0,0 +1,6 @@
+module Scion.Utils where
+
+import SrcLoc
+
+thingsAroundPoint :: (Int, Int) -> [Located n] -> [Located n]
+thingsAroundPoint pt ls = [ l | l <- ls, spans (getLoc l) pt ]

0 comments on commit 2440666

Please sign in to comment.