Make commit with thoughts from #120 description

obsidiansystems · Dec 30, 2019 · 7116068 · 7116068
1 parent ef7ab22
commit 7116068
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/frontend/Rhyolite/Frontend/App.hs b/frontend/Rhyolite/Frontend/App.hs
@@ -74,7 +74,10 @@ functorToWire
      , QueryResult (q SelectedCount) ~ v SelectedCount)
   => QueryMorphism (q SelectedCount) (q ())
 functorToWire = QueryMorphism
-  { _queryMorphism_mapQuery = mapMaybe (\n -> if n <= 0 then Nothing else Just ())
+  { -- TODO in principle the <= 0 case should never happen.
+    -- Perhaps we should error / impure log / always `Just ()` / etc.,
+    -- but we'd need to track down a bunch of instsances first.
+    _queryMorphism_mapQuery = mapMaybe (\n -> if n <= 0 then Nothing else Just ())
   , _queryMorphism_mapQueryResult = fmap (const (SelectedCount 1))
   }