Compilable version.

2024-11-24 12:45:57 +03:00 · 2019-08-14 23:01:06 +07:00 · 2019-08-14 23:01:06 +07:00 · 82ed9c1cfa
commit 82ed9c1cfa
parent 5ecf614bef
8 changed files with 1 additions and 2 deletions
--- a/app/astro/Astro/Catalogue.hs
+++ b/app/astro/Astro/Catalogue.hs
@ -23,7 +23,7 @@ loadMeteorsCount st = do
    Left err -> do
      L.logError ("Failed to get meteors count: " <> show err)
      pure 0
-    Right n  -> pure 10
+    Right n -> pure n

 dynamicsMonitor :: AppState -> L.LangL ()
 dynamicsMonitor st = do
--- a/app/astro/Astro/Domain/Meteor.hs
+++ b/app/astro/Astro/Domain/Meteor.hs
--- a/app/astro/Astro/KVDB/Entities/DBs.hs
+++ b/app/astro/Astro/KVDB/Entities/DBs.hs
--- a/app/astro/Astro/KVDB/Entities/Meteor.hs
+++ b/app/astro/Astro/KVDB/Entities/Meteor.hs
--- a/app/astro/Astro/Lens.hs
+++ b/app/astro/Astro/Lens.hs
--- a/app/astro/Astro/Types.hs
+++ b/app/astro/Astro/Types.hs
--- a/app/astro/Main.hs
+++ b/app/astro/Main.hs
--- a/src/Hydra/Core/KVDB/Language.hs
+++ b/src/Hydra/Core/KVDB/Language.hs
@ -39,7 +39,6 @@ save' src = liftF $ Save dbkey dbval id
 load'
  :: forall entity dst db
   . D.DBEntity db entity
-  => D.AsKeyEntity db entity dst
  => D.AsValueEntity db entity dst
  => D.RawDBEntity db entity
  => Show (D.KeyEntity db entity)