4r: Use v1 api

4r/Api/Color.hs

@@ -14,7 +14,7 @@ module Api.Color (
 
 import Relude
 
-import Api.Types
+import Api.V1.Types
 import Color.Print
 import Color.Utils
 import Polysemy.Commonmark.AST (commonmark)

4r/Color/Utils.hs

@@ -1,3 +1,5 @@
+{-# LANGUAGE Strict #-}
+
 module Color.Utils (textColor) where
 
 import Relude

4r/Main.hs

@@ -1,16 +1,19 @@
+{-# LANGUAGE Strict #-}
+
 module Main (main) where
 
 import Relude hiding (Proxy)
 
-import Api qualified as Api
+import Api.V1 qualified as Api
 import Api.Color ()
-import Api.Types (last_activity_date)
+import Api.V1.Types qualified as Api
 import Cli
 import Color.Print
 import Network.HTTP.Client
 import Polysemy (Member, Members, Sem)
 import Polysemy.Embed (Embed)
 import Polysemy.Error (Error, errorToIOFinal)
+import Polysemy.Fail (Fail, failToEmbed)
 import Polysemy.Final (Final, embedToFinal, runFinal)
 import Polysemy.Output (Output)
 import Polysemy.Output.IO (putTextLnO, runOutputToStdout)
@@ -28,15 +31,17 @@ runProgram ::
     [ Output Text
     , ServantClient
     , Error ClientError
+    , Fail
     , Embed IO
     , Final IO
     ]
     () ->
   IO ()
 runProgram clientEnv =
-  (>>= either (error . fromString . displayException) pure)
+    runFinal
-    . runFinal
     . embedToFinal
+    . failToEmbed @IO
+    . (>>= either (error . fromString . displayException) pure)
     . errorToIOFinal
     . runServantClientWith clientEnv
     . runOutputToStdout
@@ -49,22 +54,22 @@ sgrFullInterpreter ::
 sgrFullInterpreter noAnsi = if noAnsi then ignoreSgrFull else runSgrFull
 
 program ::
-  Members [Error ClientError, ServantClient, Output Text, Sgr, SgrRegion] r =>
+  Members [Fail, Error ClientError, ServantClient, Output Text, Sgr, SgrRegion] r =>
   Choice ->
   Sem r ()
 program GetSections = do
-  sections <- Api.getSections
+  [Api.OGetSections sections] <- Api.request [Api.IGetSections Api.GetSections]
   withSgr [SetColor Foreground Vivid White] do
     sequenceA_ $ intersperse (putTextLnO "") (printColor <$> sections)
 program GetTopics{maxEntries} = do
-  topics <- Api.getTopics
+  [Api.OGetTopics topics] <- Api.request [Api.IGetTopics Api.GetTopics]
   withSgr [SetColor Foreground Vivid White] do
     sequenceA_ $
       intersperse
         (putTextLnO "")
         (fmap printColor . maybe id take maxEntries . reverse $ sortBy (comparing (.last_activity_date)) topics)
 program GetTopic{topic_id} = do
-  topic <- Api.getTopic topic_id
+  [Api.OGetTopic topic] <- Api.request [Api.IGetTopic Api.GetTopic {topic_id}]
   withSgr [SetColor Foreground Vivid White] do
     printColor topic
 

4r/Polysemy/Output/IO.hs

@@ -1,3 +1,5 @@
+{-# LANGUAGE Strict #-}
+
 module Polysemy.Output.IO (
   runOutputToIO
   , runOutputToStdout