about summary refs log tree commit diff
path: root/src/Lib.hs
blob: f594506672b282f69d3d78d16ba2d4ba6049372e (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
module Lib
    ( sky_info_main
    ) where


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