Permalink
Browse files

Update test script

  • Loading branch information...
1 parent 9147933 commit edefd2e2874ebcc4a3492ede28ad3cce03befb99 @ozataman committed Mar 15, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 test/Main.hs
View
@@ -12,7 +12,7 @@ simpleTest = do
f <- B.lines `fmap` B.readFile "data/city_test.txt"
let ips = map (head . B.split '#') f
- db <- openGeoDB memory_cache "data/GeoLiteCity.dat"
- let rs = map (geoLocateByIPAddress db) ips
+ db <- openGeoDB memory_cache "/usr/local/share/GeoIP/GeoIPCity.dat"
+ rs <- mapM (geoLocateByIPAddress db) ips
putStrLn . show $ rs

0 comments on commit edefd2e

Please sign in to comment.