Made fill inlinable to avoid simplifier ticks exhausted

Looks like this fixes #1850
digitallyinduced · May 18, 2024 · 7116323 · 7116323
1 parent 7fea884
commit 7116323
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/IHP/Controller/Param.hs b/IHP/Controller/Param.hs
@@ -628,7 +628,7 @@ instance (FillParams rest record
             Right !(value :: fieldType) -> fill @rest (setField @fieldName value record)
             Left ParamCouldNotBeParsedException { parserError } -> fill @rest (attachFailure (Proxy @fieldName) (cs parserError) record)
             Left ParamNotFoundException {} -> fill @rest record
-    {-# INLINE fill #-}
+    {-# INLINABLE fill #-}
 
 ifValid :: (HasField "meta" model ModelSupport.MetaBag) => (Either model model -> IO r) -> model -> IO r
 ifValid branch model = branch $! if ModelSupport.isValid model