diff options
| author | Baitinq <manuelpalenzuelamerino@gmail.com> | 2022-07-01 17:50:08 +0200 |
|---|---|---|
| committer | Baitinq <manuelpalenzuelamerino@gmail.com> | 2022-07-01 17:50:08 +0200 |
| commit | 77996d3f4b4f143bb2406566d103640de1a7e727 (patch) | |
| tree | cac9b69d5cb8c95940fa95e11e2257a48bf5ba88 /src/Lib.hs | |
| parent | Add astro dependency (diff) | |
| download | sky-info-77996d3f4b4f143bb2406566d103640de1a7e727.tar.gz sky-info-77996d3f4b4f143bb2406566d103640de1a7e727.tar.bz2 sky-info-77996d3f4b4f143bb2406566d103640de1a7e727.zip | |
Add skeleton functionality
Diffstat (limited to 'src/Lib.hs')
| -rw-r--r-- | src/Lib.hs | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/src/Lib.hs b/src/Lib.hs index d36ff27..f594506 100644 --- a/src/Lib.hs +++ b/src/Lib.hs @@ -1,6 +1,17 @@ module Lib - ( someFunc + ( sky_info_main ) where -someFunc :: IO () -someFunc = putStrLn "someFunc" + +import Data.Astro.Types +import Data.Astro.Time.JulianDate + +import Logic + +sky_info_main :: IO () +sky_info_main = do + date <- return $ fromYMDHMS 2022 6 25 9 29 0 + location <- return $ GeoC (DD 4.23) (DD 8.17) + sky <- return $ generateSky date + relative_sky <- return $ relativize_sky sky location + putStrLn $ show relative_sky \ No newline at end of file |