Move JobOfferId to UI.Basic.Types

src/LinkedIn/PageUrl.purs

@@ -1,26 +1,19 @@
-module LinkedIn.PageUrl (PageUrl(..), JobOfferId(..), pageUrlP) where
+module LinkedIn.PageUrl (PageUrl(..), pageUrlP) where
 
 import Prelude
 
 import Control.Alt ((<|>))
 import Data.Generic.Rep (class Generic)
-import Data.Int64 (Int64)
 import Data.Int64 as I64
 import Data.Maybe (Maybe(..))
 import Data.Show.Generic (genericShow)
 import Data.String (codePointFromChar)
+import LinkedIn.UI.Basic.Types (JobOfferId(..))
 import Parsing (Parser, fail)
 import Parsing.Combinators (try)
 import Parsing.String (char, string)
 import Parsing.String.Basic (takeWhile)
 
-newtype JobOfferId = JobOfferId Int64
-
-derive instance Eq JobOfferId
-derive instance Generic JobOfferId _
-instance Show JobOfferId where
-  show = genericShow
-
 data PageUrl =
   UrlProfileMain String
   | UrlProjects String

src/LinkedIn/UI/Basic/Types.purs

@@ -4,8 +4,16 @@ import Prelude
 
 import Data.Date (Month, Year)
 import Data.Generic.Rep (class Generic)
+import Data.Int64 (Int64)
 import Data.Show.Generic (genericShow)
 
+newtype JobOfferId = JobOfferId Int64
+
+derive instance Eq JobOfferId
+derive instance Generic JobOfferId _
+instance Show JobOfferId where
+  show = genericShow
+
 data MonthYear = MonthYear Month Year
 
 derive instance Eq MonthYear

test/PageUrl.purs

@@ -10,7 +10,8 @@ import Data.Int64 (Int64)
 import Data.Int64 as I64
 import Data.Maybe (fromJust)
 import Effect (Effect)
-import LinkedIn.PageUrl (JobOfferId(..), PageUrl(..), pageUrlP)
+import LinkedIn.PageUrl (PageUrl(..), pageUrlP)
+import LinkedIn.UI.Basic.Types (JobOfferId(..))
 import Parsing (runParser)
 import Partial.Unsafe (unsafePartial)
 import Test.Assert (assert, assertEqual)