X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIO%2FHandle%2FText.hs;fp=GHC%2FIO%2FHandle%2FText.hs;h=b0f3a24fb80dd85cec25a1334bf77291eba0638a;hb=a2c9e6e2854a04c0959bb6879549bc7513f79de9;hp=39482bc3a34d3674505aaad399d8719cac7ca87b;hpb=bedd73e0bbc92dc1855dce6698473eda3d06adac;p=ghc-base.git

diff --git a/GHC/IO/Handle/Text.hs b/GHC/IO/Handle/Text.hs
index 39482bc..b0f3a24 100644
--- a/GHC/IO/Handle/Text.hs
+++ b/GHC/IO/Handle/Text.hs
@@ -911,8 +911,8 @@ hGetBufSome h ptr count
               bufReadNBEmpty h_ buf (castPtr ptr) 0 count
 
 haFD :: Handle__ -> FD
-haFD h_@Handle__{} = 
-   case cast h_ of
+haFD h_@Handle__{..} =
+   case cast haDevice of
              Nothing -> error "not an FD"
              Just fd -> fd