X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=EsounD.git;a=blobdiff_plain;f=Sound%2FEsounD%2FPlayer.hs;h=b60eda08a87213b3bd7f5be2c1ecadd4f8454194;hp=0d2b209c32b20fb9ba2ae72a2e518cac83ec8bf7;hb=332de27c05d195598689979c035bd136a47f4394;hpb=d2396e7b6183bb033861069aaeb52be53a90bfdf

diff --git a/Sound/EsounD/Player.hs b/Sound/EsounD/Player.hs
index 0d2b209..b60eda0 100644
--- a/Sound/EsounD/Player.hs
+++ b/Sound/EsounD/Player.hs
@@ -25,9 +25,9 @@ data Player fr ch (r ∷ * → *)
         plRate   ∷ !Int
       -- THINKME: We really want to use RegionalFileHandle but we
       -- can't, because safer-file-handles currently provides no ways
-      -- to wrap ordinary handles.
+      -- to wrap ordinary handles into safer handles.
       , plHandle ∷ !Handle
-      , plCloseH ∷ !(CloseHandle r)
+      , plCloseH ∷ !(FinalizerHandle r)
       }
 
 instance Dup (Player fr ch) where