Remove redundant forced pattern check

Actually, given we check for dotted patterns earlier in compileClause',
I don't think there is any need to checkNonErasedForced in compilePats?

Author: NathanielB123

src/Agda2Hs/Compile/Function.hs

@@ -297,7 +297,6 @@ compilePats ty ((namedArg -> pat):ps) = do
   (a, b) <- mustBePi ty
   reportSDoc "agda2hs.compile.pattern" 10 $ text "Compiling pattern:" <+> prettyTCM pat
   let rest = compilePats (absApp b (patternToTerm pat)) ps
-  checkNonErasedForced a pat
   compileDom a >>= \case
     DOInstance -> rest
     DODropped  -> rest