From 82ed9c1cfa169db8da0a48f5db603f1d103ea48b Mon Sep 17 00:00:00 2001
From: Alexander Granin <graninas@gmail.com>
Date: Wed, 14 Aug 2019 23:01:06 +0700
Subject: [PATCH] Compilable version.

---
 app/{Astro => astro}/Astro/Catalogue.hs            | 2 +-
 app/{Astro => astro}/Astro/Domain/Meteor.hs        | 0
 app/{Astro => astro}/Astro/KVDB/Entities/DBs.hs    | 0
 app/{Astro => astro}/Astro/KVDB/Entities/Meteor.hs | 0
 app/{Astro => astro}/Astro/Lens.hs                 | 0
 app/{Astro => astro}/Astro/Types.hs                | 0
 app/{Astro => astro}/Main.hs                       | 0
 src/Hydra/Core/KVDB/Language.hs                    | 1 -
 8 files changed, 1 insertion(+), 2 deletions(-)
 rename app/{Astro => astro}/Astro/Catalogue.hs (98%)
 rename app/{Astro => astro}/Astro/Domain/Meteor.hs (100%)
 rename app/{Astro => astro}/Astro/KVDB/Entities/DBs.hs (100%)
 rename app/{Astro => astro}/Astro/KVDB/Entities/Meteor.hs (100%)
 rename app/{Astro => astro}/Astro/Lens.hs (100%)
 rename app/{Astro => astro}/Astro/Types.hs (100%)
 rename app/{Astro => astro}/Main.hs (100%)

diff --git a/app/Astro/Astro/Catalogue.hs b/app/astro/Astro/Catalogue.hs
similarity index 98%
rename from app/Astro/Astro/Catalogue.hs
rename to app/astro/Astro/Catalogue.hs
index 75d9030..88e4bd7 100644
--- 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
diff --git a/app/Astro/Astro/Domain/Meteor.hs b/app/astro/Astro/Domain/Meteor.hs
similarity index 100%
rename from app/Astro/Astro/Domain/Meteor.hs
rename to app/astro/Astro/Domain/Meteor.hs
diff --git a/app/Astro/Astro/KVDB/Entities/DBs.hs b/app/astro/Astro/KVDB/Entities/DBs.hs
similarity index 100%
rename from app/Astro/Astro/KVDB/Entities/DBs.hs
rename to app/astro/Astro/KVDB/Entities/DBs.hs
diff --git a/app/Astro/Astro/KVDB/Entities/Meteor.hs b/app/astro/Astro/KVDB/Entities/Meteor.hs
similarity index 100%
rename from app/Astro/Astro/KVDB/Entities/Meteor.hs
rename to app/astro/Astro/KVDB/Entities/Meteor.hs
diff --git a/app/Astro/Astro/Lens.hs b/app/astro/Astro/Lens.hs
similarity index 100%
rename from app/Astro/Astro/Lens.hs
rename to app/astro/Astro/Lens.hs
diff --git a/app/Astro/Astro/Types.hs b/app/astro/Astro/Types.hs
similarity index 100%
rename from app/Astro/Astro/Types.hs
rename to app/astro/Astro/Types.hs
diff --git a/app/Astro/Main.hs b/app/astro/Main.hs
similarity index 100%
rename from app/Astro/Main.hs
rename to app/astro/Main.hs
diff --git a/src/Hydra/Core/KVDB/Language.hs b/src/Hydra/Core/KVDB/Language.hs
index cd17b67..a4e8bbd 100644
--- 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)