Fixed crash

digitallyinduced · Mar 6, 2020 · 9a17f8c · 9a17f8c
1 parent 626a27d
commit 9a17f8c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/TurboHaskell/QueryBuilder.hs b/TurboHaskell/QueryBuilder.hs
@@ -282,6 +282,7 @@ instance (model ~ GetModelById (Id' model'), HasField "id" model id, id ~ Id' mo
     type FetchResult (Maybe (Id' model')) model = [model]
     {-# INLINE fetch #-}
     fetch (Just a) = genericFetchId a
+    fetch Nothing = return []
     {-# INLINE fetchOneOrNothing #-}
     fetchOneOrNothing Nothing = return Nothing
     fetchOneOrNothing (Just a) = genericfetchIdOneOrNothing a