Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Non-string arg parsing(?)

  • Loading branch information...
commit e101accf23b9d434beed8cb6635c6a805907508e 1 parent 17e4d3c
Björn Buckwalter authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 examples/Biases.hs
6 examples/Biases.hs
View
@@ -27,7 +27,7 @@ import Astro.Place.Topocentric
import Astro.Util (perfectGEO, r_GEO)
import Numeric.Units.Dimensional.Prelude
import Numeric.Units.Dimensional.LinearAlgebra
-import AD
+import Numeric.Units.Dimensional.AD
import Tmp.Lifts
import System.SimpleArgs -- System (getArgs)
--import System.Console.ParseArgs
@@ -102,8 +102,8 @@ showStation longBias (name, Nothing) = printf "%-7s no visibility" nam
main = do
(long', station, bias') <- getArgs
- let !long = long' *~ degree
- let !bias = bias' *~ kilo meter
+ let long = long' *~ degree
+ let bias = bias' *~ kilo meter
let ss = sensitivities long stations
let s1 = fromMaybe (0*~meter^neg1) $ join $ lookup station ss
Please sign in to comment.
Something went wrong with that request. Please try again.