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