Missed compile check of flight-track, #249.

GlideAngle · Mar 16, 2019 · 0a0b84d · 0a0b84d
1 parent b2ce6fa
commit 0a0b84d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/track/library/Flight/TrackLog.hs b/track/library/Flight/TrackLog.hs
@@ -228,7 +228,7 @@ readDegMin :: Degree -> Minute -> Rational
 readDegMin (Degree d) (Minute m) =
     d' % 1 + toRational m' / 60000
     where
-        d' = read d :: Integer
+        d' = fromIntegral d
         m' = read m :: Double
 
 readLat :: Lat -> K.Latitude