Permalink
Browse files

fix the test

Not that the current output is canonical or anything, but it vaguely works.
  • Loading branch information...
1 parent 997b990 commit 1d04cfad3b2346b4545b4d9ed28f6ca1fe0ed8f5 @0xdaf 0xdaf committed Dec 10, 2011
Showing with 4 additions and 4 deletions.
  1. +4 −4 test.hs
View
@@ -48,22 +48,22 @@ testFunction = testCase "function" $
[ Line "foreign import ccall \"foo_bar\" foo_bar :: "
, Indent $ Sequence $ S.fromList
[ Line "Int8 -> -- x"
- , Line "IO ()"
+ , Line "IO (Ptr ())"
]
]
, Tag TypeDecl $ Sequence $ S.fromList
[ Line "testFooBar ::"
, Indent $ Sequence $ S.fromList
[ Line "Int8 -> -- x"
- , Line "IO ()"
+ , Line "IO (Ptr ())"
]
]
, Tag Decl $ Line "testFooBar x = do"
, Indent $ Sequence $ S.fromList
[ Line "let x' = id x"
, Line "result <- foo_bar x'"
- , Line "let result' = result"
- , Line "return ()"
+ , Line "let result' = id result"
+ , Line "return result'"
]
, Line ""
]

0 comments on commit 1d04cfa

Please sign in to comment.