Test different types

UU-ComputerScience · Oct 15, 2011 · d8c1b2a · d8c1b2a
1 parent 665a3a1
commit d8c1b2a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/in-progress/lenses/lenses.hs b/tests/in-progress/lenses/lenses.hs
@@ -28,6 +28,10 @@ modPages :: (Int -> Int) -> Book -> IO Book
 modPages = modAttr pages
 
 
+isAwesome :: Book -> IO Bool
+isAwesome = getAttr $ s2js "isAwesome"
+
+
 mkAnon :: IO AnonObj
 mkAnon = mkAnonObj