Fixed pattern match failure

digitallyinduced · Jun 16, 2021 · 04efafb · 04efafb
1 parent ac05e15
commit 04efafb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/IHP/FileStorage/ControllerFunctions.hs b/IHP/FileStorage/ControllerFunctions.hs
@@ -218,7 +218,7 @@ uploadToStorageWithOptions options field record = do
                             |> setField @fieldName (Just (get #url storedFile))
                             |> pure
 
-        Nothing -> pure record
+        _ -> pure record
 
 -- | Saves an upload to the storage and sets the record attribute to the url.
 --