hmmm... typing magics...

src/Aggreact/Comments/StoreService.hs

@@ -51,8 +51,9 @@ import           Data.Time.Format              ()
 import           Database.SQLite.Simple          (Only (..), query, query_)
 
 
-import           Database.Beam                 ((&&.),references_,(==?.))
+import           Database.Beam                   (references_, (&&.), (==?.))
 import qualified Database.Beam                   as Beam
+import qualified Database.Beam.Query             as BeamQ
 import qualified Database.Beam.Sqlite            as BeamSqlite
 import           Database.Store                  (DefaultMetas (..), Id (..),
                                                   Store (..))
@@ -107,18 +108,30 @@ getLatestComments' :: DBStore -> IO [Comment]
 getLatestComments' SQLiteState{..} = liftIO . query_ conn . conv $
   "SELECT * FROM " <> stTablename <> " ORDER BY created DESC LIMIT 20"
 
--- commentsView' :: AggreactDB -> Slug -> IO [CommentView]
-commentsView' conn db sl =
-  BeamSqlite.runBeamSqliteDebug putStrLn conn $
+-- commentsView' :: _ -> AggreactDB f -> Slug -> IO [_res]
+commentsView' conn db sl = do
+  res <- BeamSqlite.runBeamSqliteDebug putStrLn conn $
     Beam.runSelectReturningList $ Beam.select $ do
         comment <- Beam.all_ (_aggreactComments db)
-        user    <- Beam.leftJoin_
+        muser   <- Beam.leftJoin_
                      (Beam.all_ (_aggreactUsers db))
                      (\u -> (Beam.maybe_
-                             (pure False)
-                             (\uc -> uc `references_` u)
+                             (Beam.val_ False)
+                             (`references_` u)
                              (_userid comment)))
-        pure $ CommentView (bCommentToCommentNoUser comment) (bUserToUser user)
+        pure (comment,muser)
+  pure res
+  -- traverse (\(c,mu) -> pure $
+  --            CommentView
+  --            (bCommentToCommentNoUser c)
+  --            (fmap User.bUserToUser mu)) res
+
+
+instance Beam.HasSqlEqualityCheck BeamSqlite.Sqlite Id
+instance Beam.FromBackendRow BeamSqlite.Sqlite ParentId
+instance Beam.FromBackendRow BeamSqlite.Sqlite Slug
+instance Beam.FromBackendRow BeamSqlite.Sqlite Content
+instance Beam.FromBackendRow BeamSqlite.Sqlite Id
 
 -- | A comment handler, handle all impure operations needed to Comments
 data CommentHandler = CommentHandler

src/Aggreact/Comments/Types.hs

@@ -52,7 +52,7 @@ where
 
 import           Protolude
 
-import           Aggreact.Users                   (User, UserId (..), BUserT, BUserId)
+import           Aggreact.Users                   (User, UserId (..), BUserT)
 
 import qualified Control.Exception                as Ex
 import           Data.Aeson                       (FromJSON (..), ToJSON (..),