Expose JulianTime and SiderealTime constructors

lfborjas · Sep 14, 2020 · 20932b3 · 20932b3
1 parent 3388e85
commit 20932b3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/src/SwissEphemeris.hs b/src/SwissEphemeris.hs
@@ -17,9 +17,9 @@
 -- There's a wealth of other calculations possible with the underlying library, however,
 -- please refer to their documentation and the bundled sources for ideas!
 module SwissEphemeris
-  ( -- newtypes without exposed constructors
-    JulianTime,
-    SiderealTime,
+  ( -- fundamental aliases/newtypes
+    JulianTime (..),
+    SiderealTime (..),
     HouseCusp,
     -- fundamental enumerations
     Planet (..),

diff --git a/test/SwissEphemerisSpec.hs b/test/SwissEphemerisSpec.hs
@@ -5,7 +5,6 @@ module SwissEphemerisSpec (spec) where
 import Control.Monad (forM_)
 import Data.Either (isLeft, isRight)
 import SwissEphemeris
-import SwissEphemeris.Internal (JulianTime (..))
 import Test.Hspec
 import Test.Hspec.QuickCheck (prop)
 import Test.QuickCheck