diff options
| author | simonpj@microsoft.com <unknown> | 2009-10-29 12:04:09 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-10-29 12:04:09 +0000 |
| commit | 2e4cc75af2b8af9c971702de78b63c7c1a1a1a35 (patch) | |
| tree | 8c5ac754e1c41489c32056c3c1b17aac9c7ad0cf /compiler | |
| parent | 241fdb3509084d0f00bc62f91cf65ade9df5f0e7 (diff) | |
| download | haskell-2e4cc75af2b8af9c971702de78b63c7c1a1a1a35.tar.gz | |
White space layout only
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/typecheck/TcSplice.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs index 10b9fb9a62..651d44c6c3 100644 --- a/compiler/typecheck/TcSplice.lhs +++ b/compiler/typecheck/TcSplice.lhs @@ -964,8 +964,8 @@ reifyThing (AGlobal (AnId id)) ; fix <- reifyFixity (idName id) ; let v = reifyName id ; case idDetails id of - ClassOpId cls -> return (TH.ClassOpI v ty (reifyName cls) fix) - _ -> return (TH.VarI v ty Nothing fix) + ClassOpId cls -> return (TH.ClassOpI v ty (reifyName cls) fix) + _ -> return (TH.VarI v ty Nothing fix) } reifyThing (AGlobal (ATyCon tc)) = reifyTyCon tc |