Fix warning.

ku-fpg · Aug 31, 2017 · 0ddf3ec · 0ddf3ec
1 parent 8b12858
commit 0ddf3ec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/System/Hardware/Haskino/ShallowDeepPlugin/CommProcPass.hs b/System/Hardware/Haskino/ShallowDeepPlugin/CommProcPass.hs
@@ -252,7 +252,7 @@ commProcXlatArg (xlat, e) =
     monadTyConId <- thNameToTyCon monadTyConTH
     let tyCon_m = splitTyConApp_maybe $ exprType e
     case tyCon_m of
-      Just (tyCon, [ty]) | tyCon == monadTyConId -> do
+      Just (tyCon, [_ty]) | tyCon == monadTyConId -> do
         e' <- commProcExpr e
         fmapRepBindReturn e'
       _                  -> repExpr e